Changeset 14487

Timestamp:

Dec 15, 2010, 5:46:37 PM (10 years ago)

Author:

rme

Message:

Merge in some changes relevant to operating in batch mode.

• show lisp version info in abnormal-application-exit
• reset signal handlers for SIGSEGV and SIGBUS for kernel debugger backtrace

These are supposed to give us a little better chance of getting useful
information when a batch lisp crashes.

Location:

release/1.6/source

Files:

• . (modified) (1 prop)
• level-1/l1-readloop-lds.lisp (modified) (1 diff)
• lisp-kernel/lisp-debug.c (modified) (1 diff)
• lisp-kernel/xlbt.c (modified) (4 diffs)

release/1.6/source/level-1/l1-readloop-lds.lisp

@@ -476 +476 @@
   (ignore-errors
     (print-call-history)
+    (write-line (lisp-implementation-version) *debug-io*)
     (force-output *debug-io*)
     (quit -1))

release/1.6/source/lisp-kernel/lisp-debug.c

@@ -1421 +1421 @@
     }
     debug_memory_areas(xp, info, 0);
+    debug_show_lisp_version(xp, info, 0);
     debug_backtrace(xp, info, 0);
-    debug_show_lisp_version(xp, info, 0);
-
     abort();
   }

release/1.6/source/lisp-kernel/xlbt.c

@@ -17 +17 @@
 #include "lispdcmd.h"
 #include <stdio.h>
+#include <signal.h>
 
 
@@ -105 +106 @@
     } else {
       if (start->backlink) {
-        fprintf(dbgout, "Bogus  frame %lx\n", start);
+        fprintf(dbgout, "Bogus frame %lx\n", start);
       }
       return;
@@ -155 +156 @@
   } else {
     fprintf(dbgout, "current thread: tcr = 0x" LISP ", native thread ID = 0x" LISP ", interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
+
+#ifndef WINDOWS
+    if (lisp_global(BATCH_FLAG)) {
+      /*
+       * In batch mode, we will be exiting.  Reset some signal actions
+       * to the default to avoid a loop of "Unhandled exception 11" or
+       * whatever if we try to print some call stack that is totally
+       * screwed up.  (Instead, we'll just die horribly and get it
+       * over with.)
+       */
+      signal(SIGBUS, SIG_DFL);
+      signal(SIGSEGV, SIG_DFL);
+    }
+#endif
+
     walk_stack_frames((lisp_frame *) ptr_from_lispobj(current_fp), (lisp_frame *) (vs_area->high));
     /*      walk_other_areas();*/
@@ -164 +180 @@
 plbt(ExceptionInformation *xp)
 {
-#ifdef X8632
-  plbt_sp(xpGPR(xp,Iebp));
-#else
-  plbt_sp(xpGPR(xp,Irbp));
-#endif
+  plbt_sp(xpGPR(xp, Ifp));
 }