Changeset 7902

Timestamp:

Dec 12, 2007, 12:41:57 PM (17 years ago)

Author:

Gary Byers

Message:

When entering the kernel debugger on X8664/Darwin, try to note if
the unhandled exception occurred at _sigtramp and find and use
the signal context passed to _sigtramp if so.

File:

• trunk/ccl/lisp-kernel/lisp-debug.c (modified) (1 diff)

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

@@ -866 +866 @@
     fprintf(stderr, "Exception occurred while executing foreign code\n");
   }
-
   if (lisp_global(BATCH_FLAG)) {
     abort();
   }
+#ifdef DARWIN
+#ifdef X8664
+  if (xp) {
+    extern void *_sigtramp();
+    
+    if (xpPC(xp) == (natural)_sigtramp) {
+      xp = (ExceptionInformation *) xpGPR(xp,REG_RCX);
+      fprintf(stderr, "Exception raised at _sigtramp; using context passed to _sigtramp.  Raw register values (R) may be more interesting then lisp values or lisp backtrace");
+    }
+  }
+#endif
+#endif
+
+
   if (xp) {
     if (why > debug_entry_exception) {