[MLton-commit] r4538

[Matthew Fluet]

Fixed script for exnHistory regressions
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/bin/regression

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/bin/regression
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/bin/regression	2006-05-14 05:35:04 UTC (rev 4537)
+++ mlton/branches/on-20050822-x86_64-branch/bin/regression	2006-05-15 20:45:05 UTC (rev 4538)
@@ -18,6 +18,7 @@
 short='false'
 skipTo=''
 declare -a flags
+declare -a extraFlags
 while [ "$#" -gt 0 ]; do
         case "$1" in
         -cross)
@@ -147,13 +148,12 @@
         ;;
 	esac
         echo "testing $f"
+        unset extraFlags
         case "$f" in
         exnHistory*)
-                extraFlags="-const 'Exn.keepHistory true'"
+                extraFlags[${#extraFlags[@]}]="-const"
+                extraFlags[${#extraFlags[@]}]="Exn.keepHistory true"
         ;;
-        *)
-                extraFlags=""
-        ;;
         esac
 	if (! $runOnly); then
                 mlb="$f.mlb"
@@ -167,7 +167,7 @@
                                 \"redundantMatch ignore\"
                         in $f.sml 
                         end" >"$mlb"
-                "$mlton" "${flags[@]}" $extraFlags -output "$f" "$mlb"
+                "$mlton" "${flags[@]}" "${extraFlags[@]}" -output "$f" "$mlb"
                 if [ "$?" -ne '0' ] || ((! $cross) && [ ! -x "$f" ]); then
                         compFail "$f"
                 fi
@@ -214,7 +214,7 @@
                                 /c/cygwin/bin/sed 's/$/\r/' <"$f.ok" >"$compare"
 			fi
                         if ! diff "$compare" "$tmp"; then
-                                echo "difference with ${flags[*]}"
+                                echo "difference with ${flags[*]} ${extraFlags[*]}"
                         fi
                 fi
         fi