Commit 9d836b9c authored by simonmar's avatar simonmar
Browse files

[project @ 2005-07-27 10:32:49 by simonmar]

update for changes in stats output
parent c73c85ac
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment