Ignore:
Timestamp:
Apr 7, 2006, 3:20:59 AM (14 years ago)
Author:
gb
Message:

Setup tcr->save_rbp when doing a callback.

Pass rpc to %ERR-DISP, as it expects.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/x86-exceptions.c

    r4072 r4075  
    265265  tcr->save_vsp = (LispObj *) xpGPR(xp, Isp);
    266266  tcr->save_tsp = (LispObj *) xpMMXreg(xp, Itsp);
    267 
     267  tcr->save_rbp = (LispObj *) xpGPR(xp, Irbp);
    268268
    269269
     
    316316      }
    317317    }
    318     skip = callback_to_lisp(tcr, errdisp, xp, rfn, op0, op1, op2, 0);
     318    skip = callback_to_lisp(tcr, errdisp, xp, rfn, rpc, op0, op1, op2);
    319319    xpPC(xp) += skip;
    320320    return true;
Note: See TracChangeset for help on using the changeset viewer.