Changeset 14484

Timestamp:

Dec 15, 2010, 2:01:57 AM (10 years ago)

Author:

rme

Message:

When in batch mode, reset the signal action for SIGSEGV and SIGBUS
to the default before trying to print a backtrace in the lisp kernel
debugger. The idea is to avoid looping on "unhandled exception 11"
or whatever when trying to print out a trashed call stack.

Also print version information before the backtrace, so that we see
it if printing the backtrace fails.

Location:

trunk/source/lisp-kernel

Files:

• lisp-debug.c (modified) (1 diff)
• xlbt.c (modified) (4 diffs)

trunk/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();
   }

trunk/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));
 }