Changeset 4973

Timestamp:

Aug 20, 2006, 4:10:32 PM (18 years ago)

Author:

Gary Byers

Message:

:darwinx8664 stuff.

File:

• trunk/ccl/xdump/xx8664-fasload.lisp (modified) (2 diffs)

trunk/ccl/xdump/xx8664-fasload.lisp

@@ -95 +95 @@
 (add-xload-backend *x8664-freebsd-xload-backend*)
 
+(defparameter *x8664-darwin-xload-backend*
+  (make-backend-xload-info
+   :name  :darwinx8664
+   :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;x86-boot64.image"
+   :default-startup-file-name "level-1.dx64fsl"
+   :subdirs '("ccl:level-0;X86;X8664;" "ccl:level-0;X86;")
+   :compiler-target-name :linuxx8664
+   :image-base-address #x300000000000
+   :nil-relative-symbols x86::*x86-nil-relative-symbols*
+   :static-space-init-function 'x8664-initialize-static-space
+      
+))
+
+(add-xload-backend *x8664-darwin-xload-backend*)
+
 #+x8664-target
 (progn
@@ -100 +118 @@
   (setq *xload-default-backend* *x8664-linux-xload-backend*)
   #+freebsd-target
-  (setq *xload-default-backend* *x8664-freebsd-xload-backend*))
+  (setq *xload-default-backend* *x8664-freebsd-xload-backend*)
+  #+darwin-target
+  (setq *xload-default-backend* *x8664-darwin-xload-backend*))