[MLton-commit] r5668

[Matthew Fluet]

err and out options don't seem to be working anyways
----------------------------------------------------------------------

U   mlton/trunk/benchmark/Makefile
U   mlton/trunk/benchmark/main.sml

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

Modified: mlton/trunk/benchmark/Makefile
===================================================================
--- mlton/trunk/benchmark/Makefile	2007-06-22 23:56:45 UTC (rev 5667)
+++ mlton/trunk/benchmark/Makefile	2007-06-23 00:35:19 UTC (rev 5668)
@@ -54,6 +54,8 @@
 QBENCH := $(BENCH)
 QBFLAGS := -mlton "~/devel/mlton/mlton-20051202-1.i386-linux/build/bin/mlton -codegen {native,c} -align {4,8}" -mlton "~/devel/mlton/mlton.svn.trunk/build/bin/mlton -codegen {amd64,c} -align {4,8}"
 
+QBFLAGS := -mlton "~/devel/mlton/mlton.svn.trunk/build/bin/mlton -codegen {amd64} -align {4} {-drop-pass introduceLoops1,} -inline-leaf {'(20;0;0)','(20;20;0)','(20;20;20)','(40;0;0)','(40;40;0)','(40;40;40)','(40;20;0)','(40;20;10)'}"
+
 .PHONY: qtest
 qtest: $(NAME)
 	cd tests && ../benchmark $(QBFLAGS) $(QBENCH) && $(MAKE) clean

Modified: mlton/trunk/benchmark/main.sml
===================================================================
--- mlton/trunk/benchmark/main.sml	2007-06-22 23:56:45 UTC (rev 5667)
+++ mlton/trunk/benchmark/main.sml	2007-06-23 00:35:19 UTC (rev 5668)
@@ -591,10 +591,12 @@
                           if true
                              then
                                 let
+(*
                                    val outTmpFile =
                                       File.tempName {prefix = "tmp", suffix = "out"}
                                    val errTmpFile =
                                       File.tempName {prefix = "tmp", suffix = "err"}
+*)
                                    val {compile, run, size} =
                                      ignoreOutput
                                      (fn () => test {bench = bench})
@@ -603,6 +605,7 @@
                                          andalso Option.isNone run
                                          then List.push (failures, bench)
                                       else ()
+(*
                                    val out = 
                                       case !outData of 
                                          NONE => NONE
@@ -633,6 +636,9 @@
                                              end)
                                    val _ = File.remove outTmpFile
                                    val _ = File.remove errTmpFile
+*)
+                                   val out = NONE
+                                   val err = NONE
                                    fun add (v, ac) =
                                       case v of
                                          NONE => ac