diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-13 10:56:35 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-13 10:56:35 +0100 |
| commit | 65f10e42ccee1b0ebfda7757fdca88d9069eda54 (patch) | |
| tree | 7e19da769aef026741ddbc6c4b2f7dfa0e6b882d | |
| parent | 125a20ffd85f2cc54693738ba40f33022da8da41 (diff) | |
| download | haskell-65f10e42ccee1b0ebfda7757fdca88d9069eda54.tar.gz | |
Increase the size of T3064 and upgrade 64-bit numbers accordingly
| -rw-r--r-- | testsuite/tests/perf/compiler/T3064.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/perf/compiler/all.T | 10 |
2 files changed, 8 insertions, 7 deletions
diff --git a/testsuite/tests/perf/compiler/T3064.hs b/testsuite/tests/perf/compiler/T3064.hs index 7b45883871..5dde491e8a 100644 --- a/testsuite/tests/perf/compiler/T3064.hs +++ b/testsuite/tests/perf/compiler/T3064.hs @@ -58,16 +58,18 @@ runCtxM action = runReaderT (unResourceT action) Ctx -- test13 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( -- newRgn(newRgn(newRgn(newRgn(return())))))))))))) + +{- test14 :: IO () test14 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(return()))))))))))))) -{- test28 :: IO () test28 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))) +-} test56 :: IO () test56 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( @@ -78,4 +80,3 @@ test56 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))))))))))))))))))))))))))) --} diff --git a/testsuite/tests/perf/compiler/all.T b/testsuite/tests/perf/compiler/all.T index a599ccf0fe..0f70d9b5fd 100644 --- a/testsuite/tests/perf/compiler/all.T +++ b/testsuite/tests/perf/compiler/all.T @@ -129,22 +129,22 @@ test('T3064', compiler_stats_num_field('peak_megabytes_allocated', 7, 12)), # expected value: 18 (amd64/Linux): if_wordsize(64, - compiler_stats_num_field('peak_megabytes_allocated', 9, 16)), + compiler_stats_num_field('peak_megabytes_allocated', 30, 38)), # expected value: 56380288 (x86/Linux) (28/6/2011) if_wordsize(32, compiler_stats_range_field('bytes allocated', 39800820, 10)), # expected value: 73259544 (amd64/Linux) (28/6/2011): if_wordsize(64, - compiler_stats_num_field('bytes allocated', 60000000, - 80000000)), + compiler_stats_num_field('bytes allocated', 200000000, + 280000000)), # expected value: 2247016 (x86/Linux) (28/6/2011): if_wordsize(32, compiler_stats_num_field('max_bytes_used', 2000000, 3000000)), # expected value: 4032024 (amd64/Linux, intree) (28/6/2011): if_wordsize(64, - compiler_stats_num_field('max_bytes_used', 3000000, - 5000000)), + compiler_stats_num_field('max_bytes_used', 10000000, + 14000000)), only_ways(['normal']) ], compile, |