diff options
| author | kglynn <unknown> | 1999-11-09 00:14:50 +0000 |
|---|---|---|
| committer | kglynn <unknown> | 1999-11-09 00:14:50 +0000 |
| commit | 8a76a6639317f6f3a6a11d0daab3060793d83df7 (patch) | |
| tree | 365abf7911b363d9065189cee822024aad8aa636 | |
| parent | 03434db2706b0a8a15956e07cf3445b11b645260 (diff) | |
| download | haskell-8a76a6639317f6f3a6a11d0daab3060793d83df7.tar.gz | |
[project @ 1999-11-09 00:14:50 by kglynn]
Support for negative timings in the stats file. (I've seen times of -0.00).
If a timing is negative then set it to 0.
| -rw-r--r-- | glafp-utils/runstdtest/runstdtest.prl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl index 906f503bfc..3c4c7c21b1 100644 --- a/glafp-utils/runstdtest/runstdtest.prl +++ b/glafp-utils/runstdtest/runstdtest.prl @@ -400,11 +400,11 @@ sub process_stats_file { $TotMem = $1; } - if ( /^\s*INIT\s+time\s*(\d+\.\d\d)s\s*\(\s*(\d+\.\d\d)s elapsed\)/ ) { + if ( /^\s*INIT\s+time\s*(-*\d+\.\d\d)s\s*\(\s*(-*\d+\.\d\d)s elapsed\)/ ) { $InitTime = $1; $InitElapsed = $2; - } elsif ( /^\s*MUT\s+time\s*(\d+\.\d\d)s\s*\(\s*(\d+\.\d\d)s elapsed\)/ ) { + } elsif ( /^\s*MUT\s+time\s*(-*\d+\.\d\d)s\s*\(\s*(-*\d+\.\d\d)s elapsed\)/ ) { $MutTime = $1; $MutElapsed = $2; - } elsif ( /^\s*GC\s+time\s*(\d+\.\d\d)s\s*\(\s*(\d+\.\d\d)s elapsed\)/ ) { + } elsif ( /^\s*GC\s+time\s*(-*\d+\.\d\d)s\s*\(\s*(-*\d+\.\d\d)s elapsed\)/ ) { $GcTime = $1; $GcElapsed = $2; } } @@ -467,6 +467,15 @@ sub process_stats_file { $MutElapsed =~ s/,//g; $GcTime =~ s/,//g; $GcElapsed =~ s/,//g; + + # if timings are negative (I've seen -0.00s) then set to 0 + $InitTime = 0 unless $InitTime >= 0; + $InitElapsed = 0 unless $InitElapsed >= 0; + $MutTime = 0 unless $MutTime >= 0; + $MutElapsed = 0 unless $MutElapsed >= 0; + $GcTime = 0 unless $GcTime >= 0; + $GcElapsed = 0 unless $GcElapsed >= 0; + } sub process_spixstats_files { # 2 of them; one for mutator, one for GC |