From 8d02fead7c66e04a0cbb1c332739caa433fcb676 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sun, 3 Jun 1990 19:09:26 +0000
Subject: [PATCH] Added BINDING-STACK-POINTER-SAP and CONTROL-STACK-POINTER-SAP
 primitives.

---
 compiler/generic/vm-fndb.lisp |  7 ++++---
 compiler/mips/system.lisp     | 16 +++++++++++++++-
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index edff8676b..e3ee0d978 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.10 1990/06/03 18:57:12 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.11 1990/06/03 19:08:39 ch Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -69,9 +69,10 @@
   (unsafe))
 
 
-(defknown dynamic-space-free-pointer ()
+(defknown (dynamic-space-free-pointer binding-stack-pointer-sap
+				      control-stack-pointer-sap)  ()
   (system-area-pointer)
-  (foldable flushable movable))
+  (flushable))
 
 
 ;;;; 32bit logical operations
diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp
index c1cce9fd9..f3f7a3302 100644
--- a/compiler/mips/system.lisp
+++ b/compiler/mips/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.20 1990/06/02 16:03:53 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.21 1990/06/03 19:09:26 ch Exp $
 ;;;
 ;;;    MIPS VM definitions of various system hacking operations.
 ;;;
@@ -166,6 +166,20 @@
   (:generator 1
     (move int alloc-tn)))
 
+(define-vop (binding-stack-pointer-sap)
+  (:results (int :scs (sap-reg)))
+  (:translate binding-stack-pointer-sap)
+  (:policy :fast-safe)
+  (:generator 1
+    (move int bsp-tn)))
+
+(define-vop (control-stack-pointer-sap)
+  (:results (int :scs (sap-reg)))
+  (:translate control-stack-pointer-sap)
+  (:policy :fast-safe)
+  (:generator 1
+    (move int csp-tn)))
+
 
 ;;;; Code object frobbing.
 
-- 
GitLab