From 7cbaa2fab459f0a5bad3f5ca83aace83d0e568cd Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 9 Jan 2004 04:52:19 +0000
Subject: [PATCH] Put the space-start values into internals.h so we can refer
 to them.  Then, there's only one place (Lisp) to maintain the space-start
 values.

new-genesis.lisp:
o Any constants ending with "-SPACE-START" are dumped to internals.h

sparc/parms.lisp:
o Make target-read-only-space-start, target-static-space-start,
  target-dynamic-space-start, and target-foreign-linkage-space-start
  defconstants instead of defparameters so that internals.h will have
  the values for use in C code.
---
 compiler/generic/new-genesis.lisp |  7 ++++---
 compiler/sparc/parms.lisp         | 13 ++++++++-----
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index cb6cb741b..58fce47b1 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 58fe42162..d41e56b43 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
-- 
GitLab