diff options
author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-11-17 22:47:55 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-29 03:10:13 -0500 |
commit | 646969d4da90b8c52c3b3320b01f26452d786380 (patch) | |
tree | 40c00eafd8a999f6cb9c2d8fdc12fe85554a1c5b /testsuite/tests/simplCore/should_compile/T21948.stderr | |
parent | 8d15eadc2a791062f0392ec0d1b3a30f7e214fa4 (diff) | |
download | haskell-646969d4da90b8c52c3b3320b01f26452d786380.tar.gz |
Change printing of sized literals to match the proposal
Literals in Core were printed as e.g. 0xFF#16 :: Int16#.
The proposal 451 now specifies syntax 0xFF#Int16.
This change affects the Core printer only - more to be done later.
Part of #21422.
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T21948.stderr')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T21948.stderr | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T21948.stderr b/testsuite/tests/simplCore/should_compile/T21948.stderr index 4928111b3e..ddebe15f0b 100644 --- a/testsuite/tests/simplCore/should_compile/T21948.stderr +++ b/testsuite/tests/simplCore/should_compile/T21948.stderr @@ -62,12 +62,12 @@ T21948.nf'1 $wgo_s11i (ww_s11e :: GHC.Prim.Int64#) (eta2_s11g [Occ=Once2, OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) - = case GHC.Prim.leInt64# ww_s11e 0#64 of { + = case GHC.Prim.leInt64# ww_s11e 0#Int64 of { __DEFAULT -> case lvl_s111 of y_aNQ [Occ=Once1] { __DEFAULT -> case reduce_aBy y_aNQ of { () -> jump go_s10Z - (GHC.Int.I64# (GHC.Prim.subInt64# ww_s11e 1#64)) eta2_s11g + (GHC.Int.I64# (GHC.Prim.subInt64# ww_s11e 1#Int64)) eta2_s11g } }; 1# -> (# eta2_s11g, GHC.Tuple.() #) @@ -98,11 +98,11 @@ T21948.nf'1 [LclId[JoinId(2)(Nothing)], Arity=2, Str=<L><L>, Unf=OtherCon []] $wgo_s11i (ww1_X3 :: GHC.Prim.Int64#) (eta2_s11g [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld) - = case GHC.Prim.leInt64# ww1_X3 0#64 of { + = case GHC.Prim.leInt64# ww1_X3 0#Int64 of { __DEFAULT -> case lvl_s111 of { __DEFAULT -> case lvl1_s11A of { () -> - jump $wgo_s11i (GHC.Prim.subInt64# ww1_X3 1#64) eta2_s11g + jump $wgo_s11i (GHC.Prim.subInt64# ww1_X3 1#Int64) eta2_s11g } }; 1# -> (# eta2_s11g, GHC.Tuple.() #) |