[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