diff options
| author | simonm <unknown> | 1999-02-25 10:10:31 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-02-25 10:10:31 +0000 |
| commit | 35f92df01dc4eb3c91beecccfdb9d28521ef2f98 (patch) | |
| tree | 40493b2bead68b12b239e23c9c0389dbb6dac727 /glafp-utils | |
| parent | 9e9b7f070362605487800cf298bc54dc942f6d29 (diff) | |
| download | haskell-35f92df01dc4eb3c91beecccfdb9d28521ef2f98.tar.gz | |
[project @ 1999-02-25 10:10:31 by simonm]
Include GC bytes copied in stats string.
Diffstat (limited to 'glafp-utils')
| -rw-r--r-- | glafp-utils/runstdtest/runstdtest.prl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl index 32a79395c1..e932d1e05f 100644 --- a/glafp-utils/runstdtest/runstdtest.prl +++ b/glafp-utils/runstdtest/runstdtest.prl @@ -311,7 +311,7 @@ if ( $SysSpecificTiming eq '' ) { # print out what we found if ( $SpixTiming ne 'yes' ) { 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"; } else { print STDERR "<<$SysSpecificTiming: ", @@ -381,6 +381,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/; # if ( /^\s*([0-9,]+) bytes maximum residency .* (\d+) sample/ ) { # $MaxResidency = $1; $ResidencySamples = $2; @@ -441,6 +442,7 @@ sub process_stats_file { 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: 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 $MaxResidency = 0 unless defined($MaxResidency); @@ -449,6 +451,7 @@ sub process_stats_file { # a bit of tidying $BytesAlloc =~ s/,//g; + $GCWork =~ s/,//g; $MaxResidency =~ s/,//g; $GCs =~ s/,//g; $InitTime =~ s/,//g; |