[Openmcl-cvs-notifications] r10073 - /trunk/source/xdump/xx8664-fasload.lisp

[gb at clozure.com]

Author: gb
Date: Thu Jul 17 11:10:06 2008
New Revision: 10073

Log:
Solaris xload backend.



Modified:
    trunk/source/xdump/xx8664-fasload.lisp

Modified: trunk/source/xdump/xx8664-fasload.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/xdump/xx8664-fasload.lisp (original)
+++ trunk/source/xdump/xx8664-fasload.lisp Thu Jul 17 11:10:06 2008
@@ -115,6 +115,25 @@
 =

 (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
 (progn
   #+linux-target
@@ -122,7 +141,9 @@
   #+freebsd-target
   (setq *xload-default-backend* *x8664-freebsd-xload-backend*)
   #+darwin-target
-  (setq *xload-default-backend* *x8664-darwin-xload-backend*))
+  (setq *xload-default-backend* *x8664-darwin-xload-backend*)
+  #+solaris-target
+  (setq *xload-default-backend* *x8664-solaris-xload-backend*))
 =

 =

 =