X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-host-1.sh;h=3719026e4949b11930d0673f251cc8808ba649f8;hb=7e53ad16e6d2cd5cb22da7e8410f9560019cac19;hp=f9e8f6a22e914d4e33ab8548556bd659790c6c85;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git diff --git a/make-host-1.sh b/make-host-1.sh index f9e8f6a..3719026 100644 --- a/make-host-1.sh +++ b/make-host-1.sh @@ -1,4 +1,5 @@ #!/bin/sh +set -e # This is a script to be run as part of make.sh. The only time you'd # want to run it by itself is if you're trying to cross-compile the @@ -15,6 +16,10 @@ echo //entering make-host-1.sh +LANG=C +LC_ALL=C +export LANG LC_ALL + # Compile and load the cross-compiler. (We load it here not because we're # about to use it, but because it's written under the assumption that each # file will be loaded before the following file is compiled.) @@ -31,16 +36,25 @@ $SBCL_XC_HOST <<-'EOF' || exit 1 ;; low-level representations of things.) (setf *print-level* 5 *print-length* 5) (load "src/cold/shared.lisp") + (load "tools-for-build/ldso-stubs.lisp") (in-package "SB-COLD") (setf *host-obj-prefix* "obj/from-host/") - (load "src/cold/shared.lisp") (load "src/cold/set-up-cold-packages.lisp") (load "src/cold/defun-load-or-cload-xcompiler.lisp") (load-or-cload-xcompiler #'host-cload-stem) ;; Let's check that the type system is reasonably sane. (It's ;; easy to spend a long time wandering around confused trying ;; to debug cross-compilation if it isn't.) - (load "tests/type.before-xc.lisp") - (host-cload-stem "compiler/generic/genesis") - (sb!vm:genesis :c-header-file-name "src/runtime/sbcl.h") + (when (find :sb-test *shebang-features*) + (load "tests/type.before-xc.lisp") + (load "tests/info.before-xc.lisp") + (load "tests/vm.before-xc.lisp")) + (load "tools-for-build/ucd.lisp") + (sb-cold::slurp-ucd) + (sb-cold::output) + (host-cload-stem "src/compiler/generic/genesis") + (sb!vm:genesis :c-header-dir-name "src/runtime/genesis") + #+cmu (ext:quit) + #+clisp (ext:quit) + #+abcl (ext:quit) EOF