diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-12-17 23:30:15 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-12-19 21:41:00 -0500 |
| commit | 8e2d858bb837a322f26face78df1b6ef3898e762 (patch) | |
| tree | 08eb0a3ec49b369a90ea44f7fef65fd95c40d3c3 /testsuite | |
| parent | 68f717c05ea88e31f1a2abc9e82ed41b5ac02bee (diff) | |
| download | haskell-8e2d858bb837a322f26face78df1b6ef3898e762.tar.gz | |
Optimize flattener by trying to reduce a TF before reducing its args.
This has a demonstrated 2x speed boost on the T9872{a,b,c} tests.
(#9872)
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/perf/compiler/all.T | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/testsuite/tests/perf/compiler/all.T b/testsuite/tests/perf/compiler/all.T index 45fc504de9..517d28427b 100644 --- a/testsuite/tests/perf/compiler/all.T +++ b/testsuite/tests/perf/compiler/all.T @@ -559,9 +559,10 @@ test('T9675', test('T9872a', [ only_ways(['normal']), compiler_stats_num_field('bytes allocated', - [(wordsize(64), 5848657456, 5) + [(wordsize(64), 2680733672, 5) # 2014-12-10 5521332656 Initally created # 2014-12-16 5848657456 Flattener parameterized over roles + # 2014-12-18 2680733672 Reduce type families even more eagerly ]), ], compile_fail, @@ -570,9 +571,10 @@ test('T9872a', test('T9872b', [ only_ways(['normal']), compiler_stats_num_field('bytes allocated', - [(wordsize(64), 6892251912, 5) + [(wordsize(64), 3480212048, 5) # 2014-12-10 6483306280 Initally created # 2014-12-16 6892251912 Flattener parameterized over roles + # 2014-12-18 3480212048 Reduce type families even more eagerly ]), ], compile_fail, @@ -580,9 +582,10 @@ test('T9872b', test('T9872c', [ only_ways(['normal']), compiler_stats_num_field('bytes allocated', - [(wordsize(64), 5842024784, 5) + [(wordsize(64), 2963554096, 5) # 2014-12-10 5495850096 Initally created # 2014-12-16 5842024784 Flattener parameterized over roles + # 2014-12-18 2963554096 Reduce type families even more eagerly ]), ], compile_fail, @@ -590,8 +593,9 @@ test('T9872c', test('T9872d', [ only_ways(['normal']), compiler_stats_num_field('bytes allocated', - [(wordsize(64), 796071864, 5) - # 2014-12-19 796071864 Initally created + [(wordsize(64), 739189056, 5) + # 2014-12-18 796071864 Initally created + # 2014-12-18 739189056 Reduce type families even more eagerly ]), ], compile, |