X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=validate;h=784372dad914f5f7636b31eabc906ed825348e0e;hb=54ef1c3c9ef6cecd968d5c1ed6ded3a1a201a870;hp=8f0f5438933a12d42d6f4ddd701b85ad26e119dd;hpb=9cfd3b98791a2c680f043228aa79a33656566c66;p=ghc-hetmet.git diff --git a/validate b/validate index 8f0f543..784372d 100644 --- a/validate +++ b/validate @@ -5,11 +5,20 @@ # 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;; @@ -51,11 +69,27 @@ fi sh boot ./configure "--prefix=`pwd`/inst" $config_args -make Validating=YES -j$threads +thisdir=`utils/pwd/pwd forwardslash` + +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