Changeset 10907


Ignore:
Timestamp:
Sep 27, 2008, 6:59:06 AM (11 years ago)
Author:
gb
Message:

win32 xload backend.

File:
1 edited

Legend:

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

    r10757 r10907  
    6464(add-xload-backend *x8632-linux-xload-backend*)
    6565
     66(defparameter *x8632-windows-xload-backend*
     67  (make-backend-xload-info
     68   :name  :win32
     69   :macro-apply-code-function 'x8632-fixup-macro-apply-code
     70   :closure-trampoline-code nil
     71   :udf-code *x8632-udf-code*
     72   :default-image-name "ccl:ccl;w86-boot32.image"
     73   :default-startup-file-name "level-1.wx32fsl"
     74   :subdirs '("ccl:level-0;X86;X8632;" "ccl:level-0;X86;")
     75   :compiler-target-name :win32
     76   :image-base-address #x04000000
     77   :nil-relative-symbols x86::*x86-nil-relative-symbols*
     78   :static-space-init-function 'x8632-initialize-static-space
     79   :purespace-reserve (ash 1 26)
     80   :static-space-address (+ (ash 1 16) (ash 2 12))
     81))
     82
     83(add-xload-backend *x8632-windows-xload-backend*)
     84
    6685#+x8632-target
    6786(progn
     
    6988  (setq *xload-default-backend* *x8632-darwin-xload-backend*)
    7089  #+linux-target
    71   (setq *xload-default-backend* *x8632-linux-xload-backend*))
     90  (setq *xload-default-backend* *x8632-linux-xload-backend*)
     91  #+windows-target
     92  (setq *xload-default-backend* *x8632-windows-xload-backend*))
Note: See TracChangeset for help on using the changeset viewer.