diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-08-19 17:30:08 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-08-21 09:37:15 -0400 |
| commit | 2d8ca9170328249a436c3b5647b8e548d32b11c8 (patch) | |
| tree | 63b52b62234dfaf35252c4cdbeccd41c4bac7956 /testsuite | |
| parent | 659eb31b7a40f0aa2ba43c3454b5d9006fde837d (diff) | |
| download | haskell-2d8ca9170328249a436c3b5647b8e548d32b11c8.tar.gz | |
Fix -ddump-stg flag
-ddump-stg was dumping the initial STG (just after Core-to-STG pass)
which was misleading because we want the final STG to know if a function
allocates or not. Now we have a new flag -ddump-stg-from-core for this and
-ddump-stg is deprecated.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/noinline01.stderr | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index 0abd79858b..c033150957 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -210,7 +210,7 @@ test('T12076lit', normal, compile, ['-O']) test('T12076sat', normal, compile, ['-O']) test('T12212', normal, compile, ['-O']) -test('noinline01', only_ways(['optasm']), compile, ['-ddump-stg -dsuppress-uniques -dsuppress-ticks -O']) +test('noinline01', only_ways(['optasm']), compile, ['-ddump-stg-from-core -dsuppress-uniques -dsuppress-ticks -O']) test('par01', only_ways(['optasm']), compile, ['-ddump-prep -dsuppress-uniques -dsuppress-ticks -O2']) test('T12776', normal, compile, ['-O2']) test('T9509', diff --git a/testsuite/tests/simplCore/should_compile/noinline01.stderr b/testsuite/tests/simplCore/should_compile/noinline01.stderr index f8b6cbb30f..d38b5dee03 100644 --- a/testsuite/tests/simplCore/should_compile/noinline01.stderr +++ b/testsuite/tests/simplCore/should_compile/noinline01.stderr @@ -1,5 +1,5 @@ -==================== STG: ==================== +==================== Initial STG: ==================== Noinline01.f [InlPrag=INLINE (sat-args=1)] :: forall {p}. p -> GHC.Types.Bool [GblId, Arity=1, Str=<L,A>, Unf=OtherCon []] = |