Changeset 10526

Timestamp:

08/22/08 09:58:35 (3 months ago)

Author:

gb

Message:

Move static-space address up by 64K.

Files:

• branches/working-0711/ccl/xdump/xx8664-fasload.lisp (modified) (4 diffs)

branches/working-0711/ccl/xdump/xx8664-fasload.lisp

@@ -71 +71 @@
-   :static-space-init-function 'x8664-initialize-static-space
-   :purespace-reserve (ash 1 30)
-ash 2 12
++ (ash 1 16) (ash 2 12)
-))
-
@@ -92 +92 @@
-   :static-space-init-function 'x8664-initialize-static-space
-   :purespace-reserve (ash 1 30)
-ash 2 12
++ (ash 1 16) (ash 2 12)
-))
-
@@ -111 +111 @@
-   :static-space-init-function 'x8664-initialize-static-space
-   :purespace-reserve (ash 1 30)
-ash 2 12
++ (ash 1 16) (ash 2 12)
-))
-
-(add-xload-backend *x8664-darwin-xload-backend*)
+
+(defparameter *x8664-solaris-xload-backend*
+  (make-backend-xload-info
+   :name  :solarisx8664
+   :macro-apply-code-function 'x8664-fixup-macro-apply-code
+   :closure-trampoline-code *x8664-closure-trampoline-code*
+   :udf-code *x8664-udf-code*
+   :default-image-name "ccl:ccl;sx86-boot64"
+   :default-startup-file-name "level-1.sx64fsl"
+   :subdirs '("ccl:level-0;X86;X8664;" "ccl:level-0;X86;")
+   :compiler-target-name :solarisx8664
+   :image-base-address #x300000000000
+   :nil-relative-symbols x86::*x86-nil-relative-symbols*
+   :static-space-init-function 'x8664-initialize-static-space
+   :purespace-reserve (ash 1 30)
+   :static-space-address (+ (ash 1 16) (ash 2 12))
+))
+
+(add-xload-backend *x8664-solaris-xload-backend*)
-
-#+x8664-target
@@ -123 +142 @@
-  (setq *xload-default-backend* *x8664-freebsd-xload-backend*)
-  #+darwin-target
-
+
+
+
-
-