diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-09 17:49:01 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-09 17:49:01 +0100 |
commit | 7d3a6ae589e5597ee95eec2addd9a12dcfdcc279 (patch) | |
tree | c8d1b0ce6e345cc85f191009619bdb113eec2839 /testsuite | |
parent | 9dfd8cd7da68d54965860e85a75c7e70f65ae41f (diff) | |
download | haskell-7d3a6ae589e5597ee95eec2addd9a12dcfdcc279.tar.gz |
Better performance for #3064, but #5030 is now expect-broken
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/tests/perf/compiler/all.T | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/testsuite/tests/perf/compiler/all.T b/testsuite/tests/perf/compiler/all.T index 84adb58dff..7cefd4fd36 100644 --- a/testsuite/tests/perf/compiler/all.T +++ b/testsuite/tests/perf/compiler/all.T @@ -128,10 +128,10 @@ test('T3064', [# expect_broken( 3064 ), # expected value: 9 (x86/Linux 30-03-2011): if_wordsize(32, - compiler_stats_range_field('peak_megabytes_allocated', 14, 15)), + compiler_stats_range_field('peak_megabytes_allocated', 10, 14)), # expected value: 18 (amd64/Linux): if_wordsize(64, - compiler_stats_num_field('peak_megabytes_allocated', 30, 38)), + compiler_stats_num_field('peak_megabytes_allocated', 20, 28)), # expected value: 56380288 (x86/Linux) (28/6/2011) if_wordsize(32, compiler_stats_range_field('bytes allocated', 124952112, 10)), @@ -144,7 +144,7 @@ test('T3064', compiler_stats_range_field('max_bytes_used', 5511604, 10)), # expected value: 4032024 (amd64/Linux, intree) (28/6/2011): if_wordsize(64, - compiler_stats_num_field('max_bytes_used', 10000000, + compiler_stats_num_field('max_bytes_used', 8000000, 14000000)), only_ways(['normal']) ], @@ -157,7 +157,8 @@ test('T4007', ['$MAKE -s --no-print-directory T4007']) test('T5030', - [# expected value: 449368924 (x86/Linux) + [expect_broken(5030), + # expected value: 449368924 (x86/Linux) if_wordsize(32, compiler_stats_range_field('bytes allocated', 196457520, 10)), # expected value: 346750856 (amd64/Linux): |