Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6caa1ab74a064a09b35165c054c809836795a87d

>---------------------------------------------------------------

commit 6caa1ab74a064a09b35165c054c809836795a87d
Author: Simon Marlow <[email protected]>
Date:   Thu Apr 26 15:07:57 2012 +0100

    fix bug in stats checking

>---------------------------------------------------------------

 driver/testlib.py |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/driver/testlib.py b/driver/testlib.py
index ee9cc7c..fe727bf 100644
--- a/driver/testlib.py
+++ b/driver/testlib.py
@@ -976,7 +976,7 @@ def multi_compile_and_run( name, way, top_mod, extra_mods, 
extra_hc_opts ):
 
 def checkStats(stats_file, range_fields, num_fields):
     result = passed()
-    if len(num_fields) > 0:
+    if len(num_fields) + len(range_fields) > 0:
         f = open(in_testdir(stats_file))
         contents = f.read()
         f.close()
@@ -1068,7 +1068,7 @@ def simple_build( name, way, extra_hc_opts, should_fail, 
top_mod, link, addsuf,
         to_do = '-c' # just compile
 
     stats_file = name + '.comp.stats'
-    if len(opts.compiler_stats_num_fields) > 0:
+    if len(opts.compiler_stats_num_fields) + 
len(opts.compiler_stats_range_fields) > 0:
         extra_hc_opts += ' +RTS -V0 -t' + stats_file + ' --machine-readable 
-RTS'
 
     # Required by GHC 7.3+, harmless for earlier versions:



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to