Commit 35f92df0 authored by simonm's avatar simonm
Browse files

[project @ 1999-02-25 10:10:31 by simonm]

Include GC bytes copied in stats string.
parent 9e9b7f07
...@@ -311,7 +311,7 @@ if ( $SysSpecificTiming eq '' ) { ...@@ -311,7 +311,7 @@ if ( $SysSpecificTiming eq '' ) {
# print out what we found # print out what we found
if ( $SpixTiming ne 'yes' ) { if ( $SpixTiming ne 'yes' ) {
print STDERR "<<$SysSpecificTiming: ", print STDERR "<<$SysSpecificTiming: ",
"$BytesAlloc bytes, $GCs GCs, $AvgResidency/$MaxResidency avg/max bytes residency ($ResidencySamples samples), ${TotMem}M in use, $InitTime INIT ($InitElapsed elapsed), $MutTime MUT ($MutElapsed elapsed), $GcTime GC ($GcElapsed elapsed)", "$BytesAlloc bytes, $GCs GCs, $AvgResidency/$MaxResidency avg/max bytes residency ($ResidencySamples samples), $GCWork bytes GC work, ${TotMem}M in use, $InitTime INIT ($InitElapsed elapsed), $MutTime MUT ($MutElapsed elapsed), $GcTime GC ($GcElapsed elapsed)",
" :$SysSpecificTiming>>\n"; " :$SysSpecificTiming>>\n";
} else { } else {
print STDERR "<<$SysSpecificTiming: ", print STDERR "<<$SysSpecificTiming: ",
...@@ -381,6 +381,7 @@ sub process_stats_file { ...@@ -381,6 +381,7 @@ sub process_stats_file {
} }
$BytesAlloc = $1 if /^\s*([0-9,]+) bytes allocated in the heap/; $BytesAlloc = $1 if /^\s*([0-9,]+) bytes allocated in the heap/;
$GCWork = $1 if /^\s*([0-9,]+) bytes copied during GC/;
# if ( /^\s*([0-9,]+) bytes maximum residency .* (\d+) sample/ ) { # if ( /^\s*([0-9,]+) bytes maximum residency .* (\d+) sample/ ) {
# $MaxResidency = $1; $ResidencySamples = $2; # $MaxResidency = $1; $ResidencySamples = $2;
...@@ -441,6 +442,7 @@ sub process_stats_file { ...@@ -441,6 +442,7 @@ sub process_stats_file {
print STDERR "Warning: GcTime inot found in stats file\n" unless defined($GcTime); print STDERR "Warning: GcTime inot found in stats file\n" unless defined($GcTime);
print STDERR "Warning: GcElapsed not found in stats file\n" unless defined($GcElapsed); print STDERR "Warning: GcElapsed not found in stats file\n" unless defined($GcElapsed);
print STDERR "Warning: total memory not found in stats file\n" unless defined($TotMem); print STDERR "Warning: total memory not found in stats file\n" unless defined($TotMem);
print STDERR "Warning: GC work not found in stats file\n" unless defined($GCWork);
# things we didn't necessarily expect to find # things we didn't necessarily expect to find
$MaxResidency = 0 unless defined($MaxResidency); $MaxResidency = 0 unless defined($MaxResidency);
...@@ -449,6 +451,7 @@ sub process_stats_file { ...@@ -449,6 +451,7 @@ sub process_stats_file {
# a bit of tidying # a bit of tidying
$BytesAlloc =~ s/,//g; $BytesAlloc =~ s/,//g;
$GCWork =~ s/,//g;
$MaxResidency =~ s/,//g; $MaxResidency =~ s/,//g;
$GCs =~ s/,//g; $GCs =~ s/,//g;
$InitTime =~ s/,//g; $InitTime =~ s/,//g;
......
Supports Markdown
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