diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-09-16 11:27:52 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-28 01:53:01 -0400 |
| commit | 45a674aacf33dc47c48506b834752d59fffd7e2c (patch) | |
| tree | 86288ea42f9735d58f623525795d797ccc689fa2 /testsuite/tests/simplCore/should_compile/T3772.stdout | |
| parent | e38facf85200ea97ca107caefd1b17252639bc18 (diff) | |
| download | haskell-45a674aacf33dc47c48506b834752d59fffd7e2c.tar.gz | |
Add `-dsuppress-core-sizes` flag (#20342)
This flag is used to remove the output of core stats per binding in Core
dumps.
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T3772.stdout')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T3772.stdout | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T3772.stdout b/testsuite/tests/simplCore/should_compile/T3772.stdout index 530c98b94d..abf4b8db14 100644 --- a/testsuite/tests/simplCore/should_compile/T3772.stdout +++ b/testsuite/tests/simplCore/should_compile/T3772.stdout @@ -3,30 +3,35 @@ Result size of Tidy Core = {terms: 43, types: 18, coercions: 0, joins: 0/0} +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} T3772.$trModule4 :: GHC.Prim.Addr# [GblId, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 20 0}] T3772.$trModule4 = "main"# +-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} T3772.$trModule3 :: GHC.Types.TrName [GblId, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] T3772.$trModule3 = GHC.Types.TrNameS T3772.$trModule4 +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} T3772.$trModule2 :: GHC.Prim.Addr# [GblId, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 0}] T3772.$trModule2 = "T3772"# +-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} T3772.$trModule1 :: GHC.Types.TrName [GblId, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 10}] T3772.$trModule1 = GHC.Types.TrNameS T3772.$trModule2 +-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0} T3772.$trModule :: GHC.Types.Module [GblId, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, @@ -35,6 +40,7 @@ T3772.$trModule = GHC.Types.Module T3772.$trModule3 T3772.$trModule1 Rec { +-- RHS size: {terms: 10, types: 2, coercions: 0, joins: 0/0} $wxs :: GHC.Prim.Int# -> () [GblId, Arity=1, Str=<1L>, Unf=OtherCon []] $wxs @@ -45,6 +51,7 @@ $wxs } end Rec } +-- RHS size: {terms: 10, types: 2, coercions: 0, joins: 0/0} T3772.$wfoo [InlPrag=NOINLINE] :: GHC.Prim.Int# -> () [GblId, Arity=1, Str=<L>, Unf=OtherCon []] T3772.$wfoo @@ -54,6 +61,7 @@ T3772.$wfoo 1# -> $wxs ww } +-- RHS size: {terms: 6, types: 3, coercions: 0, joins: 0/0} foo [InlPrag=[final]] :: Int -> () [GblId, Arity=1, |