[commit: ghc] wip/T10613: Ticky: Do not count every entry twice (af90af1)

git at git.haskell.org git at git.haskell.org
Wed Mar 23 13:48:05 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T10613
Link       : http://ghc.haskell.org/trac/ghc/changeset/af90af1edd45158b02ca092c6fe0d0c9d5860f58/ghc

>---------------------------------------------------------------

commit af90af1edd45158b02ca092c6fe0d0c9d5860f58
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Mar 17 17:25:36 2016 +0100

    Ticky: Do not count every entry twice
    
    (likely introduced by 99d4e5b4a0bd32813ff8c74e91d2dcf6b3555176, possibly
    due to a merge mistake).


>---------------------------------------------------------------

af90af1edd45158b02ca092c6fe0d0c9d5860f58
 compiler/codeGen/StgCmmBind.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs
index b265153..eae599c 100644
--- a/compiler/codeGen/StgCmmBind.hs
+++ b/compiler/codeGen/StgCmmBind.hs
@@ -578,8 +578,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



More information about the ghc-commits mailing list