Changeset 7806 for trunk/ccl/lisp-kernel/x86-exceptions.c

Timestamp:

Dec 3, 2007, 11:28:46 AM (13 years ago)

Author:

gb

Message:

Complain if lisp stack pointer isn't in lisp stack when calling out
for process-interrupt.

File:

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

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

@@ -1217 +1217 @@
         natural old_foreign_exception = tcr->flags & (1 << TCR_FLAG_BIT_FOREIGN_EXCEPTION);
 
+        {
+          BytePtr interrupted_sp = (BytePtr)xpGPR(context, Isp);
+          area *vs_area = tcr->vs_area;
+
+          if ((interrupted_sp < vs_area->low) ||
+              (interrupted_sp > vs_area->high)) {
+            Bug(context, "lisp stack pointer not in lisp stack");
+          }
+        }
+          
         tcr->flags &= ~(1 << TCR_FLAG_BIT_FOREIGN_EXCEPTION);