diff options
author | William Harold Newman <william.newman@airmail.net> | 2001-11-10 17:30:36 +0000 |
---|---|---|
committer | William Harold Newman <william.newman@airmail.net> | 2001-11-10 17:30:36 +0000 |
commit | 0cfad881b88e03971a2b3ef0c0c0fc2e5f4f1bc8 (patch) | |
tree | 8b7745ed1e1603695115aa7076f2d07a9c5dfe09 /make-host-2.sh | |
parent | 1a6def3955b715472eb2c75b15660912b9f90173 (diff) |
0.pre7.86.flaky7.1:
(still dies with the same assertion failure)
reexpressing things in an effort to understand them..
..renamed DFO-WALK-CALL-GRAPH to DFO-SCAVENGE-CALL-GRAPH
..s/new-function/new-fun/
..s/reanalyze-function/reanalyze-fun/
..s/local-call-analyze-until-done/locall-analyze-clambdas-until-done/
..s/local-call-analyze/locall-analyze-component/
..s/local-call-analyze-1/locall-analyze-fun-1/
Diffstat (limited to 'make-host-2.sh')
-rw-r--r-- | make-host-2.sh | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/make-host-2.sh b/make-host-2.sh index 080f0485d..5e5c8e28e 100644 --- a/make-host-2.sh +++ b/make-host-2.sh @@ -41,6 +41,10 @@ rm -f output/after-xc.core # an enormously important disadvantage, either.) echo //running cross-compiler to create target object files $SBCL_XC_HOST <<-'EOF' || exit 1 + + ;;; + ;;; Set up the cross-compiler. + ;;; (setf *print-level* 5 *print-length* 5) (load "src/cold/shared.lisp") (in-package "SB-COLD") @@ -89,7 +93,15 @@ $SBCL_XC_HOST <<-'EOF' || exit 1 (setf *target-assemble-file* 'sb!c:assemble-file) (setf *in-target-compilation-mode-fn* #'in-target-cross-compilation-mode) + + ;;; + ;;; Run the cross-compiler to produce cold fasl files. + ;;; (load "src/cold/compile-cold-sbcl.lisp") + + ;;; + ;;; miscellaneous tidying up and saving results + ;;; (let ((filename "output/object-filenames-for-genesis.lisp-expr")) (ensure-directories-exist filename :verbose t) (with-open-file (s filename :direction :output) |