Changeset 12993

Timestamp:

Oct 10, 2009, 7:46:42 AM (15 years ago)

Author:

gz

Message:

Cleanup finish_function_entry() (r12744)

Location:

branches/working-0711/ccl/lisp-kernel

Files:

• x86-constants32.h (modified) (1 diff)
• x86-constants64.h (modified) (1 diff)
• x86-exceptions.c (modified) (2 diffs)

branches/working-0711/ccl/lisp-kernel/x86-constants32.h

@@ -97 +97 @@
 #define node_size 4
 #define node_shift 2
+#define nargregs 2
 
 #define tag_fixnum 0

branches/working-0711/ccl/lisp-kernel/x86-constants64.h

@@ -129 +129 @@
 #define node_size 8L
 #define node_shift 3L
-
+#define nargregs 3L
 
 #define tag_fixnum 0L

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

@@ -320 +320 @@
 finish_function_entry(ExceptionInformation *xp)
 {
-#ifdef X8664
-  natural nargs = (xpGPR(xp,Inargs)&0xffff)>> fixnumshift;
-#else
   natural nargs = xpGPR(xp,Inargs)>>fixnumshift;
-#endif
-  signed_natural disp;
+  signed_natural disp = nargs - nargregs;
   LispObj *vsp =  (LispObj *) xpGPR(xp,Isp), ra = *vsp++;
    
   xpGPR(xp,Isp) = (LispObj) vsp;
 
+  if (disp > 0) {               /* implies that nargs > nargregs */
+    vsp[disp] = xpGPR(xp,Ifp);
+    vsp[disp+1] = ra;
+    xpGPR(xp,Ifp) = (LispObj)(vsp+disp);
 #ifdef X8664
-  disp = nargs - 3;
-#endif
-#ifdef X8632
-  disp = nargs - 2;
-#endif
-
-#ifdef X8664
-  if (disp > 0) {               /* implies that nargs > 3 */
-    vsp[disp] = xpGPR(xp,Irbp);
-    vsp[disp+1] = ra;
-    xpGPR(xp,Irbp) = (LispObj)(vsp+disp);
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_x));
+#endif
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_z));
   } else {
     push_on_lisp_stack(xp,ra);
-    push_on_lisp_stack(xp,xpGPR(xp,Irbp));
-    xpGPR(xp,Irbp) = xpGPR(xp,Isp);
+    push_on_lisp_stack(xp,xpGPR(xp,Ifp));
+    xpGPR(xp,Ifp) = xpGPR(xp,Isp);
+#ifdef X8664
     if (nargs == 3) {
       push_on_lisp_stack(xp,xpGPR(xp,Iarg_x));
     }
+#endif
     if (nargs >= 2) {
       push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));
@@ -359 +351 @@
     }
   }
-#endif
-#ifdef X8632
-  if (disp > 0) {               /* implies that nargs > 2 */
-    vsp[disp] = xpGPR(xp,Iebp);
-    vsp[disp+1] = ra;
-    xpGPR(xp,Iebp) = (LispObj)(vsp+disp);
-    xpGPR(xp,Isp) = (LispObj)vsp;
-    push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));
-    push_on_lisp_stack(xp,xpGPR(xp,Iarg_z));
-  } else {
-    push_on_lisp_stack(xp,ra);
-    push_on_lisp_stack(xp,xpGPR(xp,Iebp));
-    xpGPR(xp,Iebp) = xpGPR(xp,Isp);
-    if (nargs == 2) {
-      push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));
-    }
-    if (nargs >= 1) {
-      push_on_lisp_stack(xp,xpGPR(xp,Iarg_z));
-    }
-  }
-#endif
 }