diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2019-07-04 12:50:00 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-04 21:25:43 -0400 |
| commit | f002250abac21ee4e9c9e4d7bc05db8aa885a65d (patch) | |
| tree | fe7a65afc103e1d56ec1540185947900a5068a06 /compiler/codeGen | |
| parent | 80afdf6be11ae3b5bfd1b09dbc5f5118a9dde55a (diff) | |
| download | haskell-f002250abac21ee4e9c9e4d7bc05db8aa885a65d.tar.gz | |
Dont gather ticks when only striping them in STG.
Adds stripStgTicksTopE which only returns the stripped expression.
So far we also allocated a list for the stripped ticks which was
never used.
Allocation difference is as expected very small but present.
About 0.02% difference when compiling with -O.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index 68a79878d3..7189800f6e 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -265,7 +265,7 @@ mkRhsClosure dflags bndr _cc upd_flag -- Updatable thunk [] -- A thunk expr - | let strip = snd . stripStgTicksTop (not . tickishIsCode) + | let strip = stripStgTicksTopE (not . tickishIsCode) , StgCase (StgApp scrutinee [{-no args-}]) _ -- ignore bndr (AlgAlt _) |