From 9b4063e6edb1071d1698359b3b349b972f71940a Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 25 Nov 1997 15:29:12 +0000
Subject: [PATCH] No longer using foreign_function_call_active so don't need to
 set and clear it during a C call-out.

---
 compiler/x86/c-call.lisp | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/compiler/x86/c-call.lisp b/compiler/x86/c-call.lisp
index 59bd18cd9..68ad13f98 100644
--- a/compiler/x86/c-call.lisp
+++ b/compiler/x86/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.5 1997/11/04 09:10:59 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/c-call.lisp,v 1.6 1997/11/25 15:29:12 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -160,10 +160,6 @@
 	   (move eax-tn function)
 	   (inst call (make-fixup (extern-alien-name "call_into_c") :foreign)))
 	  (t
-	   (inst mov (make-ea :dword :disp (make-fixup
-					    (extern-alien-name
-					     "foreign_function_call_active")
-					    :foreign))  1)
 	   ;; Setup the NPX for C; all the FP registers need to be
 	   ;; empty; pop them all.
 	   (inst fstp fr0-tn)
@@ -193,11 +189,7 @@
 	       ;; The return result is in fr0.
 	       (inst fxch fr7-tn) ; move the result back to fr0
 	       (inst fldz)) ; insure no regs are empty
-	   
-	   (inst mov (make-ea :dword :disp (make-fixup
-					    (extern-alien-name
-					     "foreign_function_call_active")
-					    :foreign))  0)))))
+	   ))))
 
 (define-vop (alloc-number-stack-space)
   (:info amount)
-- 
GitLab