X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=validate;h=20436d3ade57fcf453145aaa2e73ccc13e79edd1;hp=cb9b307f8aea0ffe1b9fd7b983142177746caa03;hb=e4417dcd4679da9c6b18c02ff667199c572bed89;hpb=d759c7231dde979ed2824bd39b2fdff24357d355

diff --git a/validate b/validate
index cb9b307..20436d3 100644
--- a/validate
+++ b/validate
@@ -1,32 +1,45 @@
 #!/bin/sh
 
+# Flags:
+#   --no-clean:       don't make clean first, just carry on from
+#                     a previous interrupted validation run
+#   --testsuite-only: don't build the compiler, just run
+#                     the test suite
+
 set -e
 
-if [ -f mk/config.mk ]; then
-   make distclean
-fi
+no_clean=0
+testsuite_only=0
 
-if [ -f mk/build.mk ]; then
-   mv mk/build.mk mk/build.mk.bak
-fi
+while [ $# -gt 0 ]
+do
+    case "$1" in
+    --no-clean)
+        no_clean=1
+        ;;
+    --testsuite-only)
+        testsuite_only=1
+        ;;
+    *)
+        echo "Bad argument: $1" >&2
+        exit 1;;
+    esac
+    shift
+done
 
-# The default is a "quick" build
-echo "BuildFlavour = quick"   >  mk/build.mk
-echo "HADDOCK_DOCS = YES"     >> mk/build.mk
-cat mk/build.mk.sample        >> mk/build.mk
-echo "SRC_HC_OPTS += -Werror" >> mk/build.mk
-echo "SRC_CC_OPTS += -Werror" >> mk/build.mk
+if [ $testsuite_only -eq 0 ]; then
 
-# You can override the default validate settings using mk/validate.mk
-# e.g. you could add GhcLibWays=p to test profiling.
-echo '-include $(TOP)/mk/validate.mk' >>mk/build.mk
+if [ $no_clean -eq 0 ] && [ -f mk/config.mk ]; then
+    make distclean
+fi
 
 case $OSTYPE in
-  cygwin|msys) config_args=--build=i386-unknown-mingw32
-               if [ -f c:/mingw/bin/gcc.exe ]; then
-                   config_args="$config_args --with-gcc=c:/mingw/bin/gcc"
-               fi
-               ;;
+    cygwin|msys) config_args=--build=i386-unknown-mingw32
+        if [ -f c:/mingw/bin/gcc.exe ]
+        then
+            config_args="$config_args --with-gcc=c:/mingw/bin/gcc"
+        fi
+        ;;
 esac
 
 if [ "$CPUS" = "" ]; then
@@ -38,29 +51,42 @@ fi
 sh boot
 ./configure $config_args
 
-make -j$threads
+make Validating=YES -j$threads
+fi # testsuite-only
 
 # ToDo: use THREADS=$threads, see #1558
-make -C testsuite/tests/ghc-regress fast stage=2 CLEANUP=1 2>&1 | tee testlog
+make Validating=YES -C testsuite/tests/ghc-regress fast stage=2 CLEANUP=1 2>&1 | tee testlog
 
+echo "-------------------------------------------------------------------"
 if
     grep '\<0 caused framework failures' testlog >/dev/null 2>/dev/null &&
     grep '\<0 unexpected passes' testlog >/dev/null 2>/dev/null &&
     grep '\<0 unexpected failures' testlog >/dev/null 2>/dev/null ; then
-   echo "-------------------------------------------------------------------"
-   echo "Congratulations!  This tree has passed minimal testing."
-   echo
-   echo "NOTE: If you have made changes that may cause failures not tested"
-   echo "for by the minimal testing procedure, please do further testing"
-   echo "as necessary."
-   echo
-   echo "When you are satisfied that you haven't broken anything, go ahead"
-   echo "and push/send your patches".
-   echo "-------------------------------------------------------------------"
+    if [ $testsuite_only -eq 0 ] && [ $no_clean -eq 0 ]
+    then
+        cat <<EOF
+Congratulations!  This tree has passed minimal testing.
+
+NOTE: If you have made changes that may cause failures not tested for by
+the minimal testing procedure, please do further testing as necessary.
+
+When you are satisfied that you haven't broken anything, go ahead and
+push/send your patches.
+EOF
+    else
+        cat <<EOF
+I didn't find any problems, but this wasn't a complete validate run,
+so be careful!
+
+NOTE: If you have made changes that may cause failures not tested for by
+the minimal testing procedure, please do further testing as necessary.
+EOF
+   fi
 else
-   echo "-------------------------------------------------------------------"
-   echo "Oops!  Looks like you have some unexpected test results or"
-   echo "framework failures."
-   echo "Please fix them before pushing/sending patches."
-   echo "-------------------------------------------------------------------"
+    cat <<EOF
+Oops!  Looks like you have some unexpected test results or framework failures.
+Please fix them before pushing/sending patches.
+EOF
 fi
+echo "-------------------------------------------------------------------"
+