X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=validate;h=784372dad914f5f7636b31eabc906ed825348e0e;hp=d4969ef4e5ab4321ff582ec5e2012190f76c48fc;hb=dbc1ed7e054a1c67cd34ff4776feea0d176e3bbb;hpb=7a7b51abb3b3d9f65670700237ee301a8752a0c5

diff --git a/validate b/validate
index d4969ef..784372d 100644
--- a/validate
+++ b/validate
@@ -1,15 +1,24 @@
 #!/bin/sh
 
 # Flags:
-#   --no-clean:      don't make clean first, just carry on from
-#                    a previous interrupted validation run
-#   --testuite-only: don't build the compiler, just run
-#                    the test suite
+#   --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
+#   --hpc:            build stage2 with -fhpc, and see how much of the
+#                     compiler the test suite covers.
+#                     2008-07-01: 63% slower than the default.
+#                     HTML generated here: testsuite/hpc_output/hpc_index.html
+#   --fast:           Default. Opposite to --slow.
+#   --slow:           Build stage2 with -DDEBUG.
+#                     2008-07-01: 14% slower than the default.
 
 set -e
 
 no_clean=0
 testsuite_only=0
+hpc=NO
+slow=NO
 
 while [ $# -gt 0 ]
 do
@@ -20,6 +29,15 @@ do
     --testsuite-only)
         testsuite_only=1
         ;;
+    --hpc)
+        hpc=YES
+        ;;
+    --slow)
+        slow=YES
+        ;;
+    --fast)
+        slow=NO
+        ;;
     *)
         echo "Bad argument: $1" >&2
         exit 1;;
@@ -49,13 +67,29 @@ else
 fi
 
 sh boot
-./configure $config_args
+./configure "--prefix=`pwd`/inst" $config_args
+
+thisdir=`utils/pwd/pwd forwardslash`
 
-make Validating=YES -j$threads
+make Validating=YES -j$threads ValidateHpc=$hpc ValidateSlow=$slow
 fi # testsuite-only
 
-# ToDo: use THREADS=$threads, see #1558
-make Validating=YES -C testsuite/tests/ghc-regress fast stage=2 CLEANUP=1 2>&1 | tee testlog
+if [ "$hpc" = YES ]
+then
+    # XXX With threads we'd need to give a different tix file to each thread
+    #     and then sum them up at the end
+    threads=1
+    HPCTIXFILE=$thisdir/testsuite/hpc_output/ghc.tix
+    export HPCTIXFILE
+    rm -f $HPCTIXFILE
+fi
+
+make Validating=YES -C testsuite/tests/ghc-regress fast stage=2 CLEANUP=1 THREADS=$threads 2>&1 | tee testlog
+
+if [ "$hpc" = YES ]
+then
+    utils/hpc/hpc markup --hpcdir=. --srcdir=compiler --srcdir=testsuite/hpc_output --destdir=testsuite/hpc_output testsuite/hpc_output/ghc.tix
+fi
 
 echo "-------------------------------------------------------------------"
 if