[commit: testsuite] master: Wibble for removing InlineWrapper (a91c3ad)
git at git.haskell.org
git at git.haskell.org
Mon Sep 2 12:13:29 CEST 2013
Repository : ssh://git@git.haskell.org/testsuite
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/a91c3ad5c4db02da26da6c5df14d525a1db892d9/testsuite
>---------------------------------------------------------------
commit a91c3ad5c4db02da26da6c5df14d525a1db892d9
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Mon Sep 2 11:13:16 2013 +0100
Wibble for removing InlineWrapper
>---------------------------------------------------------------
a91c3ad5c4db02da26da6c5df14d525a1db892d9
tests/simplCore/should_compile/T3717.stderr | 2 +-
tests/simplCore/should_compile/T4908.stderr | 2 +-
tests/simplCore/should_compile/spec-inline.stderr | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/tests/simplCore/should_compile/T3717.stderr b/tests/simplCore/should_compile/T3717.stderr
index 14d7ad2..8e586df 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=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) ->
diff --git a/tests/simplCore/should_compile/T4908.stderr b/tests/simplCore/should_compile/T4908.stderr
index ec4ea3e..7b72b7a 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=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)
diff --git a/tests/simplCore/should_compile/spec-inline.stderr b/tests/simplCore/should_compile/spec-inline.stderr
index 88662bc..a910c04 100644
--- a/tests/simplCore/should_compile/spec-inline.stderr
+++ b/tests/simplCore/should_compile/spec-inline.stderr
@@ -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)
More information about the ghc-commits
mailing list