Wibble for removing InlineWrapper
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 2 Sep 2013 10:13:16 +0000 (11:13 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Mon, 2 Sep 2013 10:13:16 +0000 (11:13 +0100)
testsuite/tests/simplCore/should_compile/T3717.stderr
testsuite/tests/simplCore/should_compile/T4908.stderr
testsuite/tests/simplCore/should_compile/spec-inline.stderr

index 14d7ad2..8e586df 100644 (file)
@@ -18,7 +18,7 @@ T3717.foo [InlPrag=INLINE[0]] :: GHC.Types.Int -> GHC.Types.Int
  Arity=1,
  Caf=NoCafRefs,
  Str=DmdType <S(S),1*U(1*U)>m,
- Unf=Unf{Src=Wrapper, TopLvl=True, Arity=1, Value=True,
+ 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)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int) ->
index ec4ea3e..7b72b7a 100644 (file)
@@ -53,7 +53,7 @@ T4908.f [InlPrag=INLINE[0]]
  Arity=2,
  Caf=NoCafRefs,
  Str=DmdType <S(S),1*U(1*U)><L,1*U(A,U(U))>,
- Unf=Unf{Src=Wrapper, TopLvl=True, Arity=2, Value=True,
+ Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
          ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int)
index 88662bc..a910c04 100644 (file)
@@ -99,7 +99,7 @@ Roman.foo_go [InlPrag=INLINE[0]]
 [GblId,
  Arity=2,
  Str=DmdType <S,1*U><S,1*U>m,
- Unf=Unf{Src=Wrapper, TopLvl=True, Arity=2, Value=True,
+ Unf=Unf{Src=InlineStable, TopLvl=True, Arity=2, Value=True,
          ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once] :: Data.Maybe.Maybe GHC.Types.Int)