Changeset 5965

Timestamp:

Feb 28, 2007, 6:03:03 AM (18 years ago)

Author:

Gary Byers

Message:

Try to preserve -8(sp) across callback_for_interrupt().

File:

• trunk/ccl/lisp-kernel/x86-exceptions.c (modified) (2 diffs)

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

@@ -441 +441 @@
 {
   LispObj save_rbp = xpGPR(xp,Irbp),
-    save_vsp = xpGPR(xp,Isp),
+    *save_vsp = (LispObj *)xpGPR(xp,Isp),
+    word_beyond_vsp = save_vsp[-1],
     xcf = create_exception_callback_frame(xp);
   int save_errno = errno;
@@ -447 +448 @@
   callback_to_lisp(tcr, nrs_CMAIN.vcell,xp, xcf, 0, 0, 0, 0);
   xpGPR(xp,Irbp) = save_rbp;
-  xpGPR(xp,Isp) = save_vsp;
+  xpGPR(xp,Isp) = (LispObj)save_vsp;
+  save_vsp[-1] = word_beyond_vsp;
   errno = save_errno;
 }