X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fvm.lisp;h=5bf1cca425f8047ea6f144b915e4a5241afeb5fa;hb=80f222325e1f677e5cf8de01c6990906fa47f65d;hp=e2d549a5326ad4875067c50afd92d707d531f1ce;hpb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;p=sbcl.git

diff --git a/src/compiler/sparc/vm.lisp b/src/compiler/sparc/vm.lisp
index e2d549a..5bf1cca 100644
--- a/src/compiler/sparc/vm.lisp
+++ b/src/compiler/sparc/vm.lisp
@@ -10,7 +10,18 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
+
+;;;; 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)