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