From 5c4707fdc3104666313b107e50ef0020b4743ad4 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 16 Jan 2004 03:08:59 +0000
Subject: [PATCH] o Make target-read-only-space-start,
 target-static-space-start, and   target-dynamic-space-start be defconstants
 so that they'll get   dumped to internals.h.

o Move the dynamic space start on Linux to a higher address so that
  CMUCL can run in an x86-64 CPU.

o Move the start of the foreign linkage space higher on Linux too so
  that we don't lose as much heap space.
---
 compiler/x86/parms.lisp | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/compiler/x86/parms.lisp b/compiler/x86/parms.lisp
index 216e44963..6ecd0256e 100644
--- a/compiler/x86/parms.lisp
+++ b/compiler/x86/parms.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.26 2003/10/24 04:29:14 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.27 2004/01/16 03:08:59 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -179,11 +179,16 @@
 
 ;;; Where to put the different spaces.
 ;;; 
-(defparameter target-read-only-space-start #x10000000)
-(defparameter target-static-space-start    #+FreeBSD #x28F00000
-	      #-FreeBSD #x28000000)
-(defparameter target-dynamic-space-start   #x48000000)
-(defparameter target-foreign-linkage-space-start #xB0000000)
+(defconstant target-read-only-space-start #x10000000)
+(defconstant target-static-space-start
+  #+FreeBSD #x28F00000
+  #-FreeBSD #x28000000)
+(defconstant target-dynamic-space-start
+  #+linux #x58000000
+  #-linux #x48000000)
+(defconstant target-foreign-linkage-space-start
+  #+linux #xBE000000
+  #-linux #xB0000000)
 (defconstant target-foreign-linkage-entry-size 8) ;In bytes.  Duh.
 
 ;;; Given that NIL is the first thing allocated in static space, we
-- 
GitLab