X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=validate;fp=validate;h=01d6a829e604270d697028b3be8bcaf07f3d83f4;hp=741daacecb2b02fc666afbbf7ae74ce698d0a147;hb=15f7bc388dc47147bfcbb07f43afb70788369d4e;hpb=c9959e41ee1d72aa0ca28d51580f1ad3c06f0e8b

diff --git a/validate b/validate
index 741daac..01d6a82 100644
--- a/validate
+++ b/validate
@@ -45,10 +45,14 @@ do
     shift
 done
 
-if [ "$CPUS" = "" ]; then
-    threads=2
+if [ "$THREADS" = "" ]; then
+    if [ "$CPUS" = "" ]; then
+        threads=2
+    else
+        threads=$(($CPUS + 1)) # `expr $CPUS + 1`
+    fi
 else
-    threads=$(($CPUS + 1)) # `expr $CPUS + 1`
+    threads="$THREADS"
 fi
 
 if [ $testsuite_only -eq 0 ]; then