diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index cb6cb741b14913f14c8334e5a6a3793889e5bf39..58fce47b1715acef2d7f0d28f3a891c8abbfd85d 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.63 2003/10/24 02:56:59 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.64 2004/01/09 04:52:19 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2231,10 +2231,11 @@ (test-tail "-SUBTYPE" "subtype_" 3) (test-head "TRACE-TABLE-" "tracetab_" 4) (test-tail "-SC-NUMBER" "sc_" 5) - (test-head "TARGET-FOREIGN-" "" 6) + (test-head "TARGET-FOREIGN" "" 6) (test-head "PSEUDO-ATOMIC-" "pseudo_atomic_" 7) (test-head "LOWTAG-" "lowtag_" 8) - (test-head "TYPE-" "type_" 9))))) + (test-head "TYPE-" "type_" 9) + (test-tail "-SPACE-START" "SpaceStart_" 10))))) (setf constants (sort constants #'(lambda (const1 const2) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 58fe4216276003ea4cea48073f313b8b42d669d6..d41e56b4320826c40833e127995c99cb2b177077 100644 --- a/compiler/sparc/parms.lisp +++ b/compiler/sparc/parms.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.49 2003/12/02 17:40:42 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.50 2004/01/09 04:52:19 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -192,12 +192,12 @@ ;;; Where to put the different spaces. Must match the C code! ;;; -(defparameter target-read-only-space-start #x10000000) -(defparameter target-static-space-start #x28000000) -(defparameter target-dynamic-space-start #x40000000) +(defconstant target-read-only-space-start #x10000000) +(defconstant target-static-space-start #x28000000) +(defconstant target-dynamic-space-start #x40000000) ;; This better match the value in sparc-validate.h! -(defparameter target-foreign-linkage-space-start #x0f800000) +(defconstant target-foreign-linkage-space-start #x0f800000) ;; This better agree with what sparc-arch.c thinks it is! Right now, ;; it's 4 instructions, so 16 bytes. (defconstant target-foreign-linkage-entry-size 16) @@ -299,6 +299,9 @@ lisp::*cmucl-core-path* ;; Gencgc + ;; + ;; Sparc doesn't use current-region-free-pointer, but we leave it + ;; here anyway. #+gencgc *current-region-free-pointer* #+gencgc