Changeset 12880

Timestamp:

Sep 23, 2009, 12:26:03 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

Pop xcf after callback.

File:

• branches/watchpoints/lisp-kernel/x86-exceptions.c (modified) (2 diffs)

branches/watchpoints/lisp-kernel/x86-exceptions.c

@@ -832 +832 @@
         if ((fulltag_of(cmain) == fulltag_misc) &&
             (header_subtag(header_of(cmain)) == subtag_macptr)) {
+          LispObj save_vsp = xpGPR(xp, Isp);
+          LispObj save_fp = xpGPR(xp, Ifp);
           LispObj xcf = create_exception_callback_frame(xp, tcr);
           int skip;
@@ -838 +840 @@
           skip = callback_to_lisp(tcr, cmain, xp, xcf, SIGSEGV, 2, (natural) addr, obj);
           xpPC(xp) += skip;
+          xpGPR(xp, Ifp) = save_fp;
+          xpGPR(xp, Isp) = save_vsp;
           return true;
         }