Changeset 7654 for branches

Timestamp:

Nov 15, 2007, 4:23:07 PM (17 years ago)

Author:

Gary Byers

Message:

lisp_Debugger takes an "in_foreign_code" arg, rather than trying to set
a bit in a (possibly signed) integer.

File:

• branches/working-0711/ccl/lisp-kernel/lisp-debug.c (modified) (5 diffs)

branches/working-0711/ccl/lisp-kernel/lisp-debug.c

@@ -817 +817 @@
               siginfo_t *info, 
               int why, 
+              Boolean in_foreign_code,
               char *message, 
               ...)
@@ -822 +823 @@
   va_list args;
   debug_command_return state = debug_continue;
-  int in_foreign_code = (why & debug_foreign_exception);
 
   if (threads_initialized) {
@@ -834 +834 @@
   if (in_foreign_code) {
     fprintf(stderr, "Exception occurred while executing foreign code\n");
-    why = (why & ~debug_foreign_exception);
   }
 
@@ -876 +875 @@
   vsnprintf(s, sizeof(s),format, args);
   va_end(args);
-  lisp_Debugger(xp, NULL, debug_entry_bug, s);
+  lisp_Debugger(xp, NULL, debug_entry_bug, false, s);
 
 }
@@ -889 +888 @@
   vsnprintf(s, sizeof(s),format, args);
   va_end(args);
-  lisp_Debugger(xp, NULL, debug_entry_bug | debug_foreign_exception , s);
+  lisp_Debugger(xp, NULL, debug_entry_bug, true, s);
 
 }