diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-17 17:25:36 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-29 16:51:50 +0200 |
| commit | 38c7714b334a28cdc10febd7763eef2a7ddd4413 (patch) | |
| tree | 906a326cdc3d4fbfe747f8fdf366b6011d0f9f73 | |
| parent | 30b9061317ea7b834339d9458c46bd6b9108d947 (diff) | |
| download | haskell-38c7714b334a28cdc10febd7763eef2a7ddd4413.tar.gz | |
Ticky: Do not count every entry twice
(likely introduced by 99d4e5b4a0bd32813ff8c74e91d2dcf6b3555176, possibly
due to a merge mistake).
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index d5a3be98c5..8adf3b088e 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -581,8 +581,7 @@ thunkCode cl_info fv_details _cc node arity body -- that cc of enclosing scope will be recorded -- in update frame CAF/DICT functions will be -- subsumed by this enclosing cc - do { tickyEnterThunk cl_info - ; enterCostCentreThunk (CmmReg nodeReg) + do { enterCostCentreThunk (CmmReg nodeReg) ; let lf_info = closureLFInfo cl_info ; fv_bindings <- mapM bind_fv fv_details ; load_fvs node lf_info fv_bindings |