Changeset 8736


Ignore:
Timestamp:
Mar 11, 2008, 7:11:17 PM (11 years ago)
Author:
gb
Message:

Define an xload-backend for Win64; note that it expects the readonly
area to start at #x100000000 (4GB).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/xdump/xx8664-fasload.lisp

    r8397 r8736  
    116116(add-xload-backend *x8664-darwin-xload-backend*)
    117117
     118
     119(defparameter *x8664-windows-xload-backend*
     120  (make-backend-xload-info
     121   :name  :win64
     122   :macro-apply-code-function 'x8664-fixup-macro-apply-code
     123   :closure-trampoline-code *x8664-closure-trampoline-code*
     124   :udf-code *x8664-udf-code*
     125   :default-image-name "ccl:ccl;wx86-boot64.image"
     126   :default-startup-file-name "level-1.wx64fsl"
     127   :subdirs '("ccl:level-0;X86;X8664;" "ccl:level-0;X86;")
     128   :compiler-target-name :win64
     129   :image-base-address #x100000000
     130   :nil-relative-symbols x86::*x86-nil-relative-symbols*
     131   :static-space-init-function 'x8664-initialize-static-space
     132   :purespace-reserve (ash 1 30)
     133   :static-space-address (+ (ash 1 16) (ash 2 12))
     134))
     135
     136(add-xload-backend *x8664-windows-xload-backend*)
     137
    118138#+x8664-target
    119139(progn
     
    123143  (setq *xload-default-backend* *x8664-freebsd-xload-backend*)
    124144  #+darwin-target
    125   (setq *xload-default-backend* *x8664-darwin-xload-backend*))
     145  (setq *xload-default-backend* *x8664-darwin-xload-backend*)
     146  #+windows-target
     147  (setq *xload-default-backend* *x8664-windows-xload-backend*))
    126148
    127149
Note: See TracChangeset for help on using the changeset viewer.