diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-10 08:52:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-10 08:52:23 +0100 |
| commit | 4faed348ec5ecf899feea4bdcae4a555c118c68b (patch) | |
| tree | dfbf0a7712685de0362fc5b88216f0bd92c9b735 /testsuite | |
| parent | 43e1ff2d60a1ed8c456a0f677430d277541eeeb2 (diff) | |
| download | haskell-4faed348ec5ecf899feea4bdcae4a555c118c68b.tar.gz | |
Accept debug-print wibbles
Diffstat (limited to 'testsuite')
4 files changed, 9 insertions, 9 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T3717.stderr b/testsuite/tests/simplCore/should_compile/T3717.stderr index 802db2ee2b..56824f5166 100644 --- a/testsuite/tests/simplCore/should_compile/T3717.stderr +++ b/testsuite/tests/simplCore/should_compile/T3717.stderr @@ -19,7 +19,7 @@ T3717.foo [InlPrag=INLINE[0]] :: GHC.Types.Int -> GHC.Types.Int Caf=NoCafRefs, Str=DmdType U(L)m, Unf=Unf{Src=Worker=T3717.$wfoo, TopLvl=True, Arity=1, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int) -> case w of _ { GHC.Types.I# ww [Occ=Once] -> diff --git a/testsuite/tests/simplCore/should_compile/T4908.stderr b/testsuite/tests/simplCore/should_compile/T4908.stderr index 7e63926556..4f2c5f2048 100644 --- a/testsuite/tests/simplCore/should_compile/T4908.stderr +++ b/testsuite/tests/simplCore/should_compile/T4908.stderr @@ -29,7 +29,7 @@ T4908.$wf Caf=NoCafRefs, Str=DmdType LL, Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [30 20] 101 20}] T4908.$wf = \ (ww :: GHC.Prim.Int#) (w :: (GHC.Types.Int, GHC.Types.Int)) -> @@ -54,7 +54,7 @@ T4908.f [InlPrag=INLINE[0]] Caf=NoCafRefs, Str=DmdType U(L)L, Unf=Unf{Src=Worker=T4908.$wf, TopLvl=True, Arity=2, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int) (w1 [Occ=Once] :: (GHC.Types.Int, GHC.Types.Int)) -> diff --git a/testsuite/tests/simplCore/should_compile/T4930.stderr b/testsuite/tests/simplCore/should_compile/T4930.stderr index 1b9b21a6d0..41e399694b 100644 --- a/testsuite/tests/simplCore/should_compile/T4930.stderr +++ b/testsuite/tests/simplCore/should_compile/T4930.stderr @@ -15,7 +15,7 @@ T4930.foo :: GHC.Types.Int -> GHC.Types.Int Arity=1, Str=DmdType U(L)m, Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) -> case n of _ { GHC.Types.I# x -> diff --git a/testsuite/tests/simplCore/should_compile/spec-inline.stderr b/testsuite/tests/simplCore/should_compile/spec-inline.stderr index f2c66331f5..4145442c5b 100644 --- a/testsuite/tests/simplCore/should_compile/spec-inline.stderr +++ b/testsuite/tests/simplCore/should_compile/spec-inline.stderr @@ -46,7 +46,7 @@ Roman.$wgo Arity=2, Str=DmdType SS, Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 30] 253 0}] Roman.$wgo = \ (w :: Data.Maybe.Maybe GHC.Types.Int) @@ -94,7 +94,7 @@ Roman.foo_go [InlPrag=INLINE[0]] Arity=2, Str=DmdType SSm, Unf=Unf{Src=Worker=Roman.$wgo, TopLvl=True, Arity=2, Value=True, - ConLike=True, Cheap=True, Expandable=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) (w1 [Occ=Once] :: Data.Maybe.Maybe GHC.Types.Int) -> @@ -109,7 +109,7 @@ Roman.foo2 :: GHC.Types.Int Caf=NoCafRefs, Str=DmdType m, Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 10 110}] Roman.foo2 = GHC.Types.I# 6 @@ -118,7 +118,7 @@ Roman.foo1 :: Data.Maybe.Maybe GHC.Types.Int Caf=NoCafRefs, Str=DmdType, Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 10 110}] Roman.foo1 = Data.Maybe.Just @ GHC.Types.Int Roman.foo2 @@ -128,7 +128,7 @@ Roman.foo :: GHC.Types.Int -> GHC.Types.Int Caf=NoCafRefs, Str=DmdType S(A)m, Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True, - ConLike=True, Cheap=True, Expandable=True, + ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) -> case n of n1 { GHC.Types.I# _ -> |