Changeset 8008


Ignore:
Timestamp:
Jan 7, 2008, 3:34:39 PM (12 years ago)
Author:
gb
Message:

In finish_function_entry, ensure that the xp's notion of where
rsp is accounts for the fact that the return address has been
popped from the stack.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/x86-exceptions.c

    r8004 r8008  
    276276  LispObj *vsp =  (LispObj *) xpGPR(xp,Isp), ra = *vsp++;
    277277   
    278  
     278  xpGPR(xp,Isp) = (LispObj) vsp;
     279
    279280  if (disp > 0) {               /* implies that nargs > 3 */
    280281    vsp[disp] = xpGPR(xp,Irbp);
    281282    vsp[disp+1] = ra;
    282283    xpGPR(xp,Irbp) = (LispObj)(vsp+disp);
    283     xpGPR(xp,Isp) = (LispObj)vsp;
    284284    push_on_lisp_stack(xp,xpGPR(xp,Iarg_x));
    285285    push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));
Note: See TracChangeset for help on using the changeset viewer.