src/vmemsave.c
/* Make sure that we kill off any Unix subprocesses before we go away */
Make sure that we kill off any Unix subprocesses before we go away
Make sure that we kill off any Unix subprocesses before we go away
void lisp_finish() {
  char d[4];
  DBPRINT(("finish lisp_finish\n"));
  if (please_fork) { 
    d[0] = 'E';
    d[3] = 1;
  }
  device_before_exit();
#ifdef DOS
  exit_host_filesystem();
#endif 
  exit(1);
}
void lisp_finish ( ) { char d [ 4 ] ; DBPRINT ( ( " \n " ) ) ; if ( please_fork ) { d [ 0 ] = ' ' ; d [ 3 ] = 1 ; } device_before_exit ( ) ; #ifdef DOS exit_host_filesystem ( ) ; #endif exit ( 1 ) ; }
Make sure that we kill off any Unix subprocesses before we go away
Make sure that we kill off any Unix subprocesses before we go away
/* if lde runs with -NF(No fork), */ /* following 5 lines don't work well. */ /* These only happen if the fork really succeeded: */ /* if (UnixPipeOut >= 0) write(UnixPipeOut, d, 4); */ /* if (UnixPipeIn >= 0 read(UnixPipeIn, d, 4);*/ /* Make sure it's finished */ /* if (UnixPID >= 0) kill(UnixPID, SIGKILL);*/ /* Then kill fork_Unix itself */ /* DOS */