[project @ 2000-02-24 17:45:53 by simonmar]

[ghc-hetmet.git] / glafp-utils / runstdtest / runstdtest.prl

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index a1719a3..9aa7ac9 100644 (file)
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -431,22 +431,18 @@ sub process_stats_file {
     $MutElapsed =~ s/,//g;
     $GcTime =~ s/,//g;
     $GcElapsed =~ s/,//g;
-
-    # if timings are negative (I've seen -0.00s) then set to 0
-    $InitTime           = 0 unless $InitTime >= 0;
-    $InitElapsed        = 0 unless $InitElapsed >= 0; 
-    $MutTime            = 0 unless $MutTime >= 0;
-    $MutElapsed         = 0 unless $MutElapsed >= 0;
-    $GcTime             = 0 unless $GcTime >= 0;
-    $GcElapsed          = 0 unless $GcElapsed >= 0;
-    
 }
 
 sub process_cacheprof_files {
 
     open(STATS, "< $CacheProfStats") || die("Can't open $CacheProfStats\n");
+
+    # the format of the info in this file is:
+    #    OTHER(intrs,reads,writes,read-misses,write-misses)
+    # where read-misses and write-misses will both be zero if we're
+    # just counting instructions.
     while (<STATS>) {
-       /OTHER\(\s*([0-9]+),\s*([0-9]+),\s*([0-9]+)\)/ && do {
+       /OTHER\(\s*([0-9]+),\s*([0-9]+),\s*([0-9]+),\s*([0-9]+),\s*([0-9]+)\)/ && do {
           $TotInstrs = $1;
           $TotReads  = $2;
           $TotWrites = $3;