source: branches/ia32/xdump/xx8632-fasload.lisp @ 14405

Last change on this file since 14405 was 9371, checked in by rme, 11 years ago

Suitable udf code for x8632.

File size: 1.6 KB
Line 
1;;;-*- Mode: Lisp; Package: CCL -*-
2
3(in-package "CCL")
4
5(eval-when (:compile-toplevel :execute)
6  (require "FASLENV" "ccl:xdump;faslenv")
7  (require "X86-LAP"))
8
9(eval-when (:compile-toplevel :load-toplevel :execute)
10  (require "XFASLOAD" "ccl:xdump;xfasload"))
11
12(defparameter *x8632-macro-apply-code*
13  #xc9cd0000)       ;uuo-error-call-macro-or-special-operator
14
15(defun x8632-fixup-macro-apply-code ()
16  *x8632-macro-apply-code*)
17
18;;; For now, do this with a UUO so that the kernel can catch it.
19;;; xxx
20(defparameter *x8632-udf-code*
21  #xc7cd0000)                   ;uuo-error-udf-call
22
23(defun x8632-initialize-static-space ()
24  (xload-make-ivector *xload-static-space*
25                      (xload-target-subtype :unsigned-32-bit-vector)
26                      (1- (/ 4096 4)))
27  (xload-make-cons *xload-target-nil* *xload-target-nil* *xload-static-space*))
28
29(defparameter *x8632-darwin-xload-backend*
30  (make-backend-xload-info
31   :name  :darwinx8632
32   :macro-apply-code-function 'x8632-fixup-macro-apply-code
33   :closure-trampoline-code nil
34   :udf-code *x8632-udf-code*
35   :default-image-name "ccl:ccl;x86-boot32.image"
36   :default-startup-file-name "level-1.dx32fsl"
37   :subdirs '("ccl:level-0;X86;X8632;" "ccl:level-0;X86;")
38   :compiler-target-name :darwinx8632
39   :image-base-address #x04000000
40   :nil-relative-symbols x86::*x86-nil-relative-symbols*
41   :static-space-init-function 'x8632-initialize-static-space
42   :purespace-reserve (ash 1 26)
43   :static-space-address (ash 2 12)
44))
45
46(add-xload-backend *x8632-darwin-xload-backend*)
47
48#+x8632-target
49(progn
50  #+darwin-target
51  (setq *xload-default-backend* *x8632-darwin-xload-backend*))
Note: See TracBrowser for help on using the repository browser.