[Openmcl-cvs-notifications] r13767 - /trunk/source/lisp-kernel/x86-exceptions.c

[rme at clozure.com]

Author: rme
Date: Tue Jun  1 12:45:17 2010
New Revision: 13767

Log:
When we find that we've take an exception in some foreign context,
call lisp_Debugger() directly so that we can pass in the siginfo_t
structure.

Modified:
    trunk/source/lisp-kernel/x86-exceptions.c

Modified: trunk/source/lisp-kernel/x86-exceptions.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/x86-exceptions.c (original)
+++ trunk/source/lisp-kernel/x86-exceptions.c Tue Jun  1 12:45:17 2010
@@ -1550,7 +1550,7 @@
   TCR *tcr =3D get_interrupt_tcr(false);
 #if 1
   if (tcr->valence !=3D TCR_STATE_LISP) {
-    FBug(context, "exception in foreign context");
+    lisp_Debugger(context, info, signum, true, "exception in foreign conte=
xt");
   }
 #endif
   {
@@ -1584,7 +1584,7 @@
   TCR* tcr =3D get_tcr(true);
 #if 1
   if (tcr->valence !=3D TCR_STATE_LISP) {
-    FBug(context, "exception in foreign context");
+    lisp_Debugger(context, info, signum, true, "exception in foreign conte=
xt");
   }
 #endif
   handle_signal_on_foreign_stack(tcr,signal_handler,signum,info,context,(L=
ispObj)__builtin_return_address(0)