From bcd20e38ba581c06ba9ff6d02e723c60e5dc930e Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 10 Aug 1993 16:17:44 +0000
Subject: [PATCH] Paramterized stack saving in C_call_scheme for I386

---
 v7/src/microcode/utils.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 51602f097..dcba867a1 100644
--- 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;
 }
-- 
2.25.1