Paramterized stack saving in C_call_scheme for I386

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 51602f0977d2391b99fc179a78641848e9ddeb95..dcba867a1235536ca0a261dfd3c08907feecd39e 100644 (file)
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.61 1993/08/07 00:15:54 adams Exp $
+$Id: utils.c,v 9.62 1993/08/10 16:17:44 adams Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -1102,10 +1102,12 @@ DEFUN (C_call_scheme, (proc, nargs, argvec),
 {
   SCHEME_OBJECT primitive, prim_lexpr, * sp, result;
 
+#ifdef I386
   extern void *C_Frame_Pointer, *C_Stack_Pointer;
   void *cfp, *csp;
   
   cfp = C_Frame_Pointer, csp = C_Stack_Pointer;
+#endif
   
   primitive = (Regs [REGBLOCK_PRIMITIVE]);
   prim_lexpr = (Regs [REGBLOCK_LEXPR_ACTUALS]);
@@ -1146,7 +1148,10 @@ DEFUN (C_call_scheme, (proc, nargs, argvec),
   Regs [REGBLOCK_LEXPR_ACTUALS] = prim_lexpr;
   Regs [REGBLOCK_PRIMITIVE] = primitive;
 
+#ifdef I386
   C_Frame_Pointer = cfp;
   C_Stack_Pointer = csp;
-  return (result);
+#endif
+
+  return  result;
 }