diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index edff8676bee3846429979b040039920c9f68cbde..e3ee0d978852aac6038cf44fd230f01129a8724f 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 c1cce9fd9393086eee53731bc82e32a5db84acb6..f3f7a330287667380acf9df4d767d7330f482f24 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.