diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-08 10:10:15 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-08 10:10:15 +0100 |
| commit | b02aa92d93895ff52f03127d516fca7bf56138c1 (patch) | |
| tree | 5f72f40817d625e07e6639d98633437dc1fea383 /testsuite/tests/numeric | |
| parent | 902cf01bdddc037453294adc0eb03c74d00301eb (diff) | |
| download | haskell-b02aa92d93895ff52f03127d516fca7bf56138c1.tar.gz | |
Fix #7116 failing due to uniques
Diffstat (limited to 'testsuite/tests/numeric')
| -rw-r--r-- | testsuite/tests/numeric/should_compile/Makefile | 2 | ||||
| -rw-r--r-- | testsuite/tests/numeric/should_compile/T7116.stdout | 36 |
2 files changed, 17 insertions, 21 deletions
diff --git a/testsuite/tests/numeric/should_compile/Makefile b/testsuite/tests/numeric/should_compile/Makefile index 12c3cf9a1c..34dbe5a51f 100644 --- a/testsuite/tests/numeric/should_compile/Makefile +++ b/testsuite/tests/numeric/should_compile/Makefile @@ -4,4 +4,4 @@ include $(TOP)/mk/test.mk T7116: $(RM) -f T7116.o T7116.hi - '$(TEST_HC)' $(TEST_HC_OPTS) -O2 -c -ddump-simpl T7116.hs + '$(TEST_HC)' $(TEST_HC_OPTS) -O2 -c -ddump-simpl -dsuppress-uniques T7116.hs diff --git a/testsuite/tests/numeric/should_compile/T7116.stdout b/testsuite/tests/numeric/should_compile/T7116.stdout index d696b913a1..1139a58c6c 100644 --- a/testsuite/tests/numeric/should_compile/T7116.stdout +++ b/testsuite/tests/numeric/should_compile/T7116.stdout @@ -10,15 +10,11 @@ T7116.dl :: GHC.Types.Double -> GHC.Types.Double 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= \ (x_ae1 [Occ=Once!] :: GHC.Types.Double) -> - case x_ae1 of _ { GHC.Types.D# y_afn -> - GHC.Types.D# (GHC.Prim.+## y_afn y_afn) - }}] + Tmpl= \ (x [Occ=Once!] :: GHC.Types.Double) -> + case x of _ { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) }}] T7116.dl = - \ (x_ae1 :: GHC.Types.Double) -> - case x_ae1 of _ { GHC.Types.D# y_afn -> - GHC.Types.D# (GHC.Prim.+## y_afn y_afn) - } + \ (x :: GHC.Types.Double) -> + case x of _ { GHC.Types.D# y -> GHC.Types.D# (GHC.Prim.+## y y) } T7116.dr :: GHC.Types.Double -> GHC.Types.Double [GblId, @@ -28,9 +24,9 @@ T7116.dr :: GHC.Types.Double -> GHC.Types.Double 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= \ (x_aem [Occ=Once!] :: GHC.Types.Double) -> - case x_aem of _ { GHC.Types.D# x1_afj -> - GHC.Types.D# (GHC.Prim.+## x1_afj x1_afj) + Tmpl= \ (x [Occ=Once!] :: GHC.Types.Double) -> + case x of _ { GHC.Types.D# x1 -> + GHC.Types.D# (GHC.Prim.+## x1 x1) }}] T7116.dr = T7116.dl @@ -42,14 +38,14 @@ T7116.fl :: GHC.Types.Float -> GHC.Types.Float 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= \ (x_aen [Occ=Once!] :: GHC.Types.Float) -> - case x_aen of _ { GHC.Types.F# y_afx -> - GHC.Types.F# (GHC.Prim.plusFloat# y_afx y_afx) + Tmpl= \ (x [Occ=Once!] :: GHC.Types.Float) -> + case x of _ { GHC.Types.F# y -> + GHC.Types.F# (GHC.Prim.plusFloat# y y) }}] T7116.fl = - \ (x_aen :: GHC.Types.Float) -> - case x_aen of _ { GHC.Types.F# y_afx -> - GHC.Types.F# (GHC.Prim.plusFloat# y_afx y_afx) + \ (x :: GHC.Types.Float) -> + case x of _ { GHC.Types.F# y -> + GHC.Types.F# (GHC.Prim.plusFloat# y y) } T7116.fr :: GHC.Types.Float -> GHC.Types.Float @@ -60,9 +56,9 @@ T7116.fr :: GHC.Types.Float -> GHC.Types.Float 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= \ (x_aeo [Occ=Once!] :: GHC.Types.Float) -> - case x_aeo of _ { GHC.Types.F# x1_aft -> - GHC.Types.F# (GHC.Prim.plusFloat# x1_aft x1_aft) + Tmpl= \ (x [Occ=Once!] :: GHC.Types.Float) -> + case x of _ { GHC.Types.F# x1 -> + GHC.Types.F# (GHC.Prim.plusFloat# x1 x1) }}] T7116.fr = T7116.fl |