0.8.13.41: Require robustness

[sbcl.git] / src / compiler / sparc / vm.lisp

diff --git a/src/compiler/sparc/vm.lisp b/src/compiler/sparc/vm.lisp
index cf1041d..5bf1cca 100644 (file)
--- a/src/compiler/sparc/vm.lisp
+++ b/src/compiler/sparc/vm.lisp
@@ -10,7 +10,18 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-\f
+
+;;;; Additional constants
+
+;;; NUMBER-STACK-DISPLACEMENT
+;;;
+;;; The number of bytes reserved above the number stack pointer.  These
+;;; slots are required by architecture for a place to spill register windows.
+;;;
+;;; FIXME: Where is this used?
+(def!constant number-stack-displacement
+  (* 16 n-word-bytes))
+
 ;;;; Define the registers
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -118,7 +129,7 @@
 ;;; and seems to be working so far    -dan
 ;;;
 ;;; arbitrarily taken for alpha, too. - Christophe
-(def!constant sb!vm::kludge-nondeterministic-catch-block-size 7)
+(def!constant kludge-nondeterministic-catch-block-size 7)
 
 (!define-storage-classes
 
@@ -270,7 +281,7 @@
 
 
   ;; A catch or unwind block.
-  (catch-block control-stack :element-size sb!vm::kludge-nondeterministic-catch-block-size))
+  (catch-block control-stack :element-size kludge-nondeterministic-catch-block-size))
 \f
 ;;;; Make some miscellaneous TNs for important registers.
 (macrolet ((defregtn (name sc)