make-genesis-2.lisp

   1 (load "src/cold/shared.lisp")
   2 (in-package "SB-COLD")
   3 (setf *host-obj-prefix* "obj/from-host/"
   4       *target-obj-prefix* "obj/from-xc/")
   5 (load "src/cold/set-up-cold-packages.lisp")
   6 (load "src/cold/defun-load-or-cload-xcompiler.lisp")
   7 (load-or-cload-xcompiler #'host-load-stem)
   8 (load "tools-for-build/corefile.lisp" :verbose nil)
   9 (host-cload-stem "src/compiler/generic/genesis" nil)
  10
  11 (let (object-file-names foptrace-file-names)
  12   (do-stems-and-flags (stem flags 2)
  13     (unless (member :not-target flags)
  14       (push (stem-object-path stem flags :target-compile)
  15             object-file-names)
  16       (when (member :foptrace-file flags)
  17         (push (stem-object-path stem flags :target-compile)
  18               foptrace-file-names))))
  19   (setf object-file-names (nreverse object-file-names))
  20   (genesis :object-file-names object-file-names
  21            :foptrace-file-names foptrace-file-names
  22            :defstruct-descriptions (find-bootstrap-file "output/defstructs.lisp-expr" t)
  23            :tls-init (read-from-file "output/tls-init.lisp-expr" :build-dependent t)
  24            :c-header-dir-name "output/genesis-2"
  25            :core-file-name "output/cold-sbcl.core"
  26            ;; The map file is not needed by the system, but can be
  27            ;; very handy when debugging cold init problems.
  28            :map-file-name "output/cold-sbcl.map"))
  29
  30 #+cmu (ext:quit)
  31 #+clisp (ext:quit)
  32 #+abcl (ext:quit)