diff options
Diffstat (limited to 'make-genesis-2.sh')
| -rw-r--r-- | make-genesis-2.sh | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/make-genesis-2.sh b/make-genesis-2.sh index 908ce95c0..b76040690 100644 --- a/make-genesis-2.sh +++ b/make-genesis-2.sh @@ -30,31 +30,7 @@ echo //entering make-genesis-2.sh # file at that time; but we needed to run it earlier in order to # get to where we can write a .core file.) echo //loading and running GENESIS to create cold-sbcl.core -$SBCL_XC_HOST <<-'EOF' - (setf *print-level* 5 *print-length* 5) - (load "src/cold/shared.lisp") - (in-package "SB-COLD") - (setf *host-obj-prefix* "obj/from-host/" - *target-obj-prefix* "obj/from-xc/") - (load "src/cold/set-up-cold-packages.lisp") - (load "src/cold/defun-load-or-cload-xcompiler.lisp") - (load-or-cload-xcompiler #'host-load-stem) - (defparameter *target-object-file-names* - (with-open-file (s "output/object-filenames-for-genesis.lisp-expr" - :direction :input) - (read s))) - (host-load-stem "src/compiler/generic/genesis") - (sb!vm:genesis :object-file-names *target-object-file-names* - :c-header-dir-name "output/genesis-2" - :symbol-table-file-name "src/runtime/sbcl.nm" - :core-file-name "output/cold-sbcl.core" - ;; The map file is not needed by the system, but can - ;; be very handy when debugging cold init problems. - :map-file-name "output/cold-sbcl.map") - #+cmu (ext:quit) - #+clisp (ext:quit) - #+abcl (ext:quit) - EOF +$SBCL_XC_HOST < make-genesis-2.lisp echo //testing for consistency of first and second GENESIS passes if diff -r src/runtime/genesis output/genesis-2; then |