From: simonmar <unknown>
Date: Wed, 27 Jul 2005 10:32:49 +0000 (+0000)
Subject: [project @ 2005-07-27 10:32:49 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~300
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9d836b9c4887e861c8f39a41d7bdab23d9d1d803;p=ghc-hetmet.git

[project @ 2005-07-27 10:32:49 by simonmar]
update for changes in stats output
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 1397ac4..6f8b86f 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -358,6 +358,7 @@ sub process_stats_file {
 	local($tot_live)    = 0; # for calculating residency stuff
 	local($tot_samples) = 0;
 
+	$GCWork = 0;
 	while (<STATS>) {
 	    if (! /Gen:\s+0/ && /^\s*\d+\s+\d+\s+(\d+)\s+\d+\.\d+/ ) {
 		$max_live = $1 if $max_live < $1;
@@ -366,7 +367,7 @@ sub process_stats_file {
 	    }
 
 	    $BytesAlloc = $1 if /^\s*([0-9,]+) bytes allocated in the heap/;
-	    $GCWork = $1     if /^\s*([0-9,]+) bytes copied during GC/;
+	    $GCWork += $1    if /^\s*([0-9,]+) bytes copied during GC/;
 
 #	    if ( /^\s*([0-9,]+) bytes maximum residency .* (\d+) sample/ ) {
 #		$MaxResidency = $1; $ResidencySamples = $2;