Changeset 5543

Timestamp:

Nov 9, 2006, 2:50:04 PM (18 years ago)

Author:

Gary Byers

Message:

Use #_ _exit for fatal termination.

Try to run lisp code after #_exit via lazarus(); this is for some
cases of SAVE-APPLICATION (e.g., in the Cocoa GUI).

The environment in which The Undead code runs is a little funky,
especially on PPC. There might be GC implications (cstack will
contain call history as of the point when #_exit called atexit
handlers, vstack & tstack are emptied in lazarus()). We should
barely run any code in this environment, but we will GC a time
or two ...

File:

• trunk/ccl/lisp-kernel/pmcl-kernel.c (modified) (4 diffs)

trunk/ccl/lisp-kernel/pmcl-kernel.c

@@ -854 +854 @@
   }
   fprintf(stderr, "Fatal error: %s\n%s\n", param0, param1);
-  exit(-1);
+  _exit(-1);
 }
 
@@ -1183 +1183 @@
 {
   kill(main_thread_pid, SIGKILL);
-  exit(-1);
+  _exit(-1);
 }
 
@@ -1327 +1327 @@
 }
 #endif
+
+void
+lazarus()
+{
+  TCR *tcr = get_tcr(false);
+  if (tcr) {
+    tcr->vs_area->active = tcr->vs_area->high - node_size;
+    tcr->save_vsp = (LispObj *)(tcr->vs_area->active);
+    tcr->ts_area->active = tcr->ts_area->high;
+    tcr->save_tsp = (LispObj *)(tcr->ts_area->active);
+    tcr->catch_top = 0;
+    tcr->db_link = 0;
+    tcr->xframe = 0;
+    start_lisp(tcr, 0);
+  }
+}
   
 main(int argc, char *argv[], char *envp[], void *aux)
@@ -1526 +1542 @@
   egc_control(true, NULL);
 #endif
+  atexit(lazarus);
   start_lisp(TCR_TO_TSD(tcr), 0);
-  exit(0);
+  _exit(0);
 }