[Git][cmucl/cmucl][master] Add -X flag

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
d003a224 by Raymond Toy at 2016-05-14T07:56:19-07:00
Add -X flag

When -X is given (break) just before quiting the cross-compilation.
This allows for some debugging of the cross-compiled result.

- - - - -


1 changed file:

- bin/cross-build-world.sh


Changes:

=====================================
bin/cross-build-world.sh
=====================================
--- a/bin/cross-build-world.sh
+++ b/bin/cross-build-world.sh
@@ -1,16 +1,19 @@
 #!/bin/sh
 
 usage() {
-    echo "cross-build-world.sh [-crl] [-B file] [-G Gnumake] target-dir cross-dir cross-compiler-script [build-binary [flags]]"
+    echo "cross-build-world.sh [-crlX] [-B file] [-G Gnumake] target-dir cross-dir cross-compiler-script [build-binary [flags]]"
     echo "  -c      Clean target and cross directories before compiling"
     echo "  -r      Recompile lisp runtime"
     echo "  -l      Load cross-compiled kernel to make a new lisp kernel"
     echo "  -B file Use this as the cross bootstrap file." 
     echo "  -G make Specifies the name of GNU make"
+    echo "  -X      (break) before quitting the cross compilation (for debugging)"
 }
 
 MAKE=make
-while getopts "crlB:G:" arg
+BREAK=""
+
+while getopts "crlXB:G:" arg
 do
     case $arg in
       c) CLEAN_DIR=yes ;;
@@ -18,6 +21,7 @@ do
       l) LOAD_KERNEL=yes ;;
       B) BOOTSTRAP=$OPTARG ;;
       G) MAKE=$OPTARG ;;
+      X) BREAK="(break)" ;;
       h | \?) usage; exit 1 ;;
     esac
 done
@@ -122,6 +126,7 @@ $LISP "$@" -noinit -nositeinit <<EOF
 (setq *gc-verbose* t *interactive* t)
 
 (load "target:tools/worldbuild")
+$BREAK
 (ext:quit)
 EOF
 



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/d003a22443cd8325a87817e29c9caf933488975d
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160514/c598adeb/attachment.html>