diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-05-09 09:23:36 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-09 16:26:36 -0400 |
| commit | a4fbb589fd176e6c2f6648dea6c93e25668f1db8 (patch) | |
| tree | b6e38fe2eb982307f07a8d68aeb7d39b11651c58 /testsuite | |
| parent | 158bd65984245a1a563c747e7d5afd1b03d82a1d (diff) | |
| download | haskell-a4fbb589fd176e6c2f6648dea6c93e25668f1db8.tar.gz | |
STG: only print cost-center if asked to
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/should_run/T21052.stdout | 4 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/noinline01.stderr | 7 | ||||
| -rw-r--r-- | testsuite/tests/simplStg/should_compile/T19717.stderr | 4 |
3 files changed, 8 insertions, 7 deletions
diff --git a/testsuite/tests/ghci/should_run/T21052.stdout b/testsuite/tests/ghci/should_run/T21052.stdout index 1fee75de62..7de5eaf6ca 100644 --- a/testsuite/tests/ghci/should_run/T21052.stdout +++ b/testsuite/tests/ghci/should_run/T21052.stdout @@ -6,5 +6,7 @@ BCO_toplevel :: GHC.Types.IO [()] let { sat :: [()] [LclId] = - CCCS :! [GHC.Tuple.() GHC.Types.[]]; + :! [GHC.Tuple.() GHC.Types.[]]; } in GHC.Base.returnIO sat; + + diff --git a/testsuite/tests/simplCore/should_compile/noinline01.stderr b/testsuite/tests/simplCore/should_compile/noinline01.stderr index ab74ee5680..cf7eb10902 100644 --- a/testsuite/tests/simplCore/should_compile/noinline01.stderr +++ b/testsuite/tests/simplCore/should_compile/noinline01.stderr @@ -15,7 +15,7 @@ Noinline01.$trModule4 :: GHC.Prim.Addr# Noinline01.$trModule3 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule4]; + GHC.Types.TrNameS! [Noinline01.$trModule4]; Noinline01.$trModule2 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = @@ -23,11 +23,10 @@ Noinline01.$trModule2 :: GHC.Prim.Addr# Noinline01.$trModule1 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.TrNameS! [Noinline01.$trModule2]; + GHC.Types.TrNameS! [Noinline01.$trModule2]; Noinline01.$trModule :: GHC.Types.Module [GblId, Unf=OtherCon []] = - CCS_DONT_CARE GHC.Types.Module! [Noinline01.$trModule3 - Noinline01.$trModule1]; + GHC.Types.Module! [Noinline01.$trModule3 Noinline01.$trModule1]; diff --git a/testsuite/tests/simplStg/should_compile/T19717.stderr b/testsuite/tests/simplStg/should_compile/T19717.stderr index f2aadf53a5..07a90c5706 100644 --- a/testsuite/tests/simplStg/should_compile/T19717.stderr +++ b/testsuite/tests/simplStg/should_compile/T19717.stderr @@ -8,11 +8,11 @@ Foo.f :: forall {a}. a -> [GHC.Maybe.Maybe a] let { sat [Occ=Once1] :: GHC.Maybe.Maybe a [LclId] = - CCCS GHC.Maybe.Just! [x1]; } in + GHC.Maybe.Just! [x1]; } in let { sat [Occ=Once1] :: [GHC.Maybe.Maybe a] [LclId] = - CCCS :! [sat GHC.Types.[]]; + :! [sat GHC.Types.[]]; } in : [sat sat]; }; |