Changeset 10648


Ignore:
Timestamp:
Sep 8, 2008, 6:54:42 AM (11 years ago)
Author:
gb
Message:

xload-backend for win64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/xdump/xx8664-fasload.lisp

    r10073 r10648  
    135135(add-xload-backend *x8664-solaris-xload-backend*)
    136136
     137(defparameter *x8664-windows-xload-backend*
     138  (make-backend-xload-info
     139   :name  :win64
     140   :macro-apply-code-function 'x8664-fixup-macro-apply-code
     141   :closure-trampoline-code *x8664-closure-trampoline-code*
     142   :udf-code *x8664-udf-code*
     143   :default-image-name "ccl:ccl;wx86-boot64.image"
     144   :default-startup-file-name "level-1.wx64fsl"
     145   :subdirs '("ccl:level-0;X86;X8664;" "ccl:level-0;X86;")
     146   :compiler-target-name :win64
     147   :image-base-address #x100000000
     148   :nil-relative-symbols x86::*x86-nil-relative-symbols*
     149   :static-space-init-function 'x8664-initialize-static-space
     150   :purespace-reserve (ash 1 30)
     151   :static-space-address (+ (ash 1 16) (ash 2 12))
     152))
     153
     154(add-xload-backend *x8664-windows-xload-backend*)
     155
    137156#+x8664-target
    138157(progn
     
    144163  (setq *xload-default-backend* *x8664-darwin-xload-backend*)
    145164  #+solaris-target
    146   (setq *xload-default-backend* *x8664-solaris-xload-backend*))
     165  (setq *xload-default-backend* *x8664-solaris-xload-backend*)
     166  #+windows-target
     167  (setq *xload-default-backend* *x8664-windows-xload-backend*))
    147168
    148169
Note: See TracChangeset for help on using the changeset viewer.