Changeset 12880


Ignore:
Timestamp:
Sep 23, 2009, 7:26:03 PM (10 years ago)
Author:
rme
Message:

Pop xcf after callback.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/watchpoints/lisp-kernel/x86-exceptions.c

    r12837 r12880  
    832832        if ((fulltag_of(cmain) == fulltag_misc) &&
    833833            (header_subtag(header_of(cmain)) == subtag_macptr)) {
     834          LispObj save_vsp = xpGPR(xp, Isp);
     835          LispObj save_fp = xpGPR(xp, Ifp);
    834836          LispObj xcf = create_exception_callback_frame(xp, tcr);
    835837          int skip;
     
    838840          skip = callback_to_lisp(tcr, cmain, xp, xcf, SIGSEGV, 2, (natural) addr, obj);
    839841          xpPC(xp) += skip;
     842          xpGPR(xp, Ifp) = save_fp;
     843          xpGPR(xp, Isp) = save_vsp;
    840844          return true;
    841845        }
Note: See TracChangeset for help on using the changeset viewer.