Changeset 5199

Timestamp:

Sep 12, 2006, 4:31:04 AM (18 years ago)

Author:

Gary Byers

Message:

Enter the debugger if altstack_signal_handler is entered in foreign code.
(Maybe want to signal a lisp error in some cases, but this is currently
fatal and we might as well die earlier than with a stack overflow.)

File:

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

trunk/ccl/lisp-kernel/x86-exceptions.c

@@ -943 +943 @@
   TCR* tcr = get_tcr(true);
   LispObj *foreign_rsp = find_foreign_rsp(xpGPR(context,Isp), tcr->cs_area, tcr);
+#if 1
+  if (tcr->valence != TCR_STATE_LISP) {
+    Bug(context, "exception in foreign context");
+  }
+#endif
 #ifdef LINUX
   fpregset_t fpregs = NULL;