Skip to content
Snippets Groups Projects
Commit d003a224 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add -X flag

When -X is given (break) just before quiting the cross-compilation.
This allows for some debugging of the cross-compiled result.
parent bb4afde9
No related branches found
No related tags found
No related merge requests found
#!/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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment