diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-05-08 11:21:16 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-28 11:14:05 +0100 |
| commit | 6e0f6ededff6018a88dd390590a09f79842ccfa5 (patch) | |
| tree | c2d4f46cfdcf8b236d9ac751c48f0b0ccced7503 /testsuite/tests/simplCore/should_compile/T4930.stderr | |
| parent | e9cd1d5e9d6f0e019d6433a3c7dd9585b3f7ae6b (diff) | |
| download | haskell-6e0f6ededff6018a88dd390590a09f79842ccfa5.tar.gz | |
Refactor unfoldings
There are two main refactorings here
1. Move the uf_arity field
out of CoreUnfolding
into UnfWhen
It's a lot tidier there. If I've got this right, no behaviour
should change.
2. Define specUnfolding and use it in DsBinds and Specialise
a) commons-up some shared code
b) makes sure that Specialise correctly specialises DFun
unfoldings (which it didn't before)
The two got put together because both ended up interacting in the
specialiser.
They cause zero difference to nofib.
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T4930.stderr')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T4930.stderr | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T4930.stderr b/testsuite/tests/simplCore/should_compile/T4930.stderr index 9570b7b98a..5f0aad2525 100644 --- a/testsuite/tests/simplCore/should_compile/T4930.stderr +++ b/testsuite/tests/simplCore/should_compile/T4930.stderr @@ -14,9 +14,9 @@ T4930.foo :: GHC.Types.Int -> GHC.Types.Int [GblId, Arity=1, Str=DmdType <S,1*U(U)>m, - Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True, - ConLike=True, WorkFree=True, Expandable=True, - Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) + Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, + WorkFree=True, Expandable=True, + Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) -> case n of _ [Occ=Dead] { GHC.Types.I# x -> case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<# x 5) |