Changeset 8008

Timestamp:

Jan 7, 2008, 7:34:39 AM (17 years ago)

Author:

Gary Byers

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:

• branches/working-0711/ccl/lisp-kernel/x86-exceptions.c (modified) (1 diff)

branches/working-0711/ccl/lisp-kernel/x86-exceptions.c

@@ -276 +276 @@
   LispObj *vsp =  (LispObj *) xpGPR(xp,Isp), ra = *vsp++;
    
-  
+  xpGPR(xp,Isp) = (LispObj) vsp;
+
   if (disp > 0) {               /* implies that nargs > 3 */
     vsp[disp] = xpGPR(xp,Irbp);
     vsp[disp+1] = ra;
     xpGPR(xp,Irbp) = (LispObj)(vsp+disp);
-    xpGPR(xp,Isp) = (LispObj)vsp;
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_x));
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));