Changeset 5169

Timestamp:

Sep 7, 2006, 2:44:16 AM (18 years ago)

Author:

Gary Byers

Message:

Bump abi version.
Make purespace-reserve an attribute of the backend (may need more pure
space on x86-64.)

Location:

trunk/ccl/xdump

Files:

• heap-image.lisp (modified) (1 diff)
• xfasload.lisp (modified) (4 diffs)
• xppcfasload.lisp (modified) (2 diffs)
• xx8664-fasload.lisp (modified) (3 diffs)

trunk/ccl/xdump/heap-image.lisp

@@ -97 +97 @@
 
 
-(defparameter *image-abi-version* 1010)
+(defparameter *image-abi-version* 1011)
 
 (defun write-image-file (pathname image-base spaces &optional (abi-version *image-abi-version*))

trunk/ccl/xdump/xfasload.lisp

@@ -72 +72 @@
 (defparameter *xload-image-base-address* nil)
 
-(defparameter *xload-purespace-reserve* #x04000000)
+(defparameter *xload-purespace-reserve* nil)
 (defparameter *xload-static-space-address* (ash 1 12))
 (defparameter *xload-static-space-size* (ash 8 10))
@@ -94 +94 @@
   nil-relative-symbols
   static-space-init-function
+  purespace-reserve
 )
 
@@ -100 +101 @@
     (setq *xload-image-base-address*
           (backend-xload-info-image-base-address
+           *xload-target-backend*))
+    (setq *xload-purespace-reserve*
+          (backend-xload-info-purespace-reserve
            *xload-target-backend*))
     (setq *xload-readonly-space-address* *xload-image-base-address*)
@@ -1743 +1747 @@
             (*xload-target-fulltag-for-symbols* *xload-target-fulltag-for-symbols*)
             (*xload-target-fulltag-for-functions* *xload-target-fulltag-for-functions*)
-            (*xload-target-char-code-limit* *xload-target-char-code-limit*))
+            (*xload-target-char-code-limit* *xload-target-char-code-limit*)
+            (*xload-purespace-reserve* *xload-purespace-reserve*))
        (setup-xload-target-parameters)
        (let* ((*load-verbose* t)

trunk/ccl/xdump/xppcfasload.lisp

@@ -111 +111 @@
    :nil-relative-symbols ppc::*ppc-nil-relative-symbols*
    :static-space-init-function 'ppc32-initialize-static-space
+   :purespace-reserve (ash 64 20)
 ))
 
@@ -134 +135 @@
    :nil-relative-symbols ppc::*ppc-nil-relative-symbols*
    :static-space-init-function 'ppc64-initialize-static-space
+   :purespace-reserve (ash 64 20)   
    ))
 

trunk/ccl/xdump/xx8664-fasload.lisp

@@ -70 +70 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)      
 ))
 
@@ -90 +90 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)            
 ))
 
@@ -108 +108 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)            
 ))