improvements to +RTS -s output

- count and report number of parallel collections
- calculate bytes scanned in addition to bytes copied per thread
- calculate "work balance factor"
- tidy up the formatting a bit

1 files changed, 2 insertions, 1 deletions

diff --git a/utils/runstdtest/runstdtest.prl b/utils/runstdtest/runstdtest.prl
index 60597606b7..0cc9c6ea27 100644
--- 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;