improvements to +RTS -s output

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

diff --git a/utils/runstdtest/runstdtest.prl b/utils/runstdtest/runstdtest.prl
index 6059760..0cc9c6e 100644 (file)
--- a/utils/runstdtest/runstdtest.prl
+++ b/utils/runstdtest/runstdtest.prl
@@ -388,6 +388,7 @@ sub process_stats_file {
        local($count) = 0;
 
        $GCWork = 0;
+        $GCs = 0;
        while (<STATS>) {
            if (! /Gen:\s+0/ && /^\s*\d+\s+\d+\s+(\d+)\s+\d+\.\d+/ ) {
                $max_live = $1 if $max_live < $1;
@@ -407,7 +408,7 @@ sub process_stats_file {
 #              $MaxResidency = $1; $ResidencySamples = $2;
 #          }
 
-           $GCs = $1 if /^\s*([0-9,]+) collections? in generation 0/;
+           $GCs += $1 if /^\s*Generation\s*\d+:\s*([0-9,]+) collections/;
 
            if ( /^\s+([0-9]+)\s+M[Bb] total memory/ ) {
                $TotMem = $1;