diff options
author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-10-22 10:52:42 +0300 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-23 05:59:09 -0400 |
commit | 266435a7ab865467d5027b1a718f74f85b77b96f (patch) | |
tree | ceaa47b5c8cc0780e7c2fb7478fd1a710d14c545 /testsuite/tests/simplCore | |
parent | bb0dc5a5c1d1fa583b73835d8cb7055020834051 (diff) | |
download | haskell-266435a7ab865467d5027b1a718f74f85b77b96f.tar.gz |
Add new flag for unarised STG dumps
Previously -ddump-stg would dump pre and post-unarise STGs. Now we have
a new flag for post-unarise STG and -ddump-stg only dumps coreToStg
output.
STG dump flags after this commit:
- -ddump-stg: Dumps CoreToStg output
- -ddump-stg-unarised: Unarise output
- -ddump-stg-final: STG right before code gen (includes CSE and lambda
lifting)
Diffstat (limited to 'testsuite/tests/simplCore')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/noinline01.stderr | 35 |
1 files changed, 1 insertions, 34 deletions
diff --git a/testsuite/tests/simplCore/should_compile/noinline01.stderr b/testsuite/tests/simplCore/should_compile/noinline01.stderr index 21c94d0eb3..413a7a98e0 100644 --- a/testsuite/tests/simplCore/should_compile/noinline01.stderr +++ b/testsuite/tests/simplCore/should_compile/noinline01.stderr @@ -1,38 +1,5 @@ -==================== Pre unarise: ==================== -Noinline01.f [InlPrag=INLINE (sat-args=1)] - :: forall p. p -> GHC.Types.Bool -[GblId, Arity=1, Caf=NoCafRefs, Str=<L,A>, Unf=OtherCon []] = - \r [eta] GHC.Types.True []; - -Noinline01.g :: GHC.Types.Bool -[GblId] = - \u [] Noinline01.f GHC.Types.False; - -Noinline01.$trModule4 :: GHC.Prim.Addr# -[GblId, Caf=NoCafRefs, Unf=OtherCon []] = - "main"#; - -Noinline01.$trModule3 :: GHC.Types.TrName -[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule4]; - -Noinline01.$trModule2 :: GHC.Prim.Addr# -[GblId, Caf=NoCafRefs, Unf=OtherCon []] = - "Noinline01"#; - -Noinline01.$trModule1 :: GHC.Types.TrName -[GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule2]; - -Noinline01.$trModule :: GHC.Types.Module -[GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.Module! [Noinline01.$trModule3 - Noinline01.$trModule1]; - - - -==================== STG syntax: ==================== +==================== STG: ==================== Noinline01.f [InlPrag=INLINE (sat-args=1)] :: forall p. p -> GHC.Types.Bool [GblId, Arity=1, Caf=NoCafRefs, Str=<L,A>, Unf=OtherCon []] = |