Repository : ssh://[email protected]/testsuite On branch : master Link : http://ghc.haskell.org/trac/ghc/changeset/a7920ef6eefa5578c89b7cda0d6be207ee38c502/testsuite
>--------------------------------------------------------------- commit a7920ef6eefa5578c89b7cda0d6be207ee38c502 Author: Nicolas Frisby <[email protected]> Date: Thu Aug 29 15:24:02 2013 -0500 Updated tests for the change in wrapper IdInfo syntax in c080f727ba5f83921b842fcff71e9066adbdc250 >--------------------------------------------------------------- a7920ef6eefa5578c89b7cda0d6be207ee38c502 tests/simplCore/should_compile/T3717.stderr | 2 +- tests/simplCore/should_compile/T4908.stderr | 2 +- tests/simplCore/should_compile/spec-inline.stderr | 5 +++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/tests/simplCore/should_compile/T3717.stderr b/tests/simplCore/should_compile/T3717.stderr index 5a495e4..14d7ad2 100644 --- a/tests/simplCore/should_compile/T3717.stderr +++ b/tests/simplCore/should_compile/T3717.stderr @@ -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=Worker=T3717.$wfoo, TopLvl=True, Arity=1, Value=True, + Unf=Unf{Src=Wrapper, 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) -> diff --git a/tests/simplCore/should_compile/T4908.stderr b/tests/simplCore/should_compile/T4908.stderr index 67b02e1..ec4ea3e 100644 --- a/tests/simplCore/should_compile/T4908.stderr +++ b/tests/simplCore/should_compile/T4908.stderr @@ -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=Worker=T4908.$wf, TopLvl=True, Arity=2, Value=True, + Unf=Unf{Src=Wrapper, 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) diff --git a/tests/simplCore/should_compile/spec-inline.stderr b/tests/simplCore/should_compile/spec-inline.stderr index 8700b95..88662bc 100644 --- a/tests/simplCore/should_compile/spec-inline.stderr +++ b/tests/simplCore/should_compile/spec-inline.stderr @@ -30,7 +30,8 @@ Roman.foo_$s$wgo = case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 100) of _ { GHC.Types.False -> - case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 500) of _ { + case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 500) + of _ { GHC.Types.False -> Roman.foo_$s$wgo (GHC.Prim.-# sc 1) (GHC.Prim.+# a a); GHC.Types.True -> Roman.foo_$s$wgo (GHC.Prim.-# sc 3) a @@ -98,7 +99,7 @@ Roman.foo_go [InlPrag=INLINE[0]] [GblId, Arity=2, Str=DmdType <S,1*U><S,1*U>m, - Unf=Unf{Src=Worker=Roman.$wgo, TopLvl=True, Arity=2, Value=True, + Unf=Unf{Src=Wrapper, 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) _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
