diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/Prof.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prof.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Prof.hs b/compiler/GHC/StgToCmm/Prof.hs index 355cc6a781..473e240a54 100644 --- a/compiler/GHC/StgToCmm/Prof.hs +++ b/compiler/GHC/StgToCmm/Prof.hs @@ -186,7 +186,7 @@ enterCostCentreThunk closure = enterCostCentreFun :: CostCentreStack -> CmmExpr -> FCode () enterCostCentreFun ccs closure = - ifProfiling $ do + ifProfiling $ if isCurrentCCS ccs then do platform <- getPlatform emitRtsCall rtsUnitId (fsLit "enterFunCCS") |