diff options
Diffstat (limited to 'ghc/compiler/codeGen/CgProf.hs')
| -rw-r--r-- | ghc/compiler/codeGen/CgProf.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgProf.hs b/ghc/compiler/codeGen/CgProf.hs index 30f801dba3..0c2381b14a 100644 --- a/ghc/compiler/codeGen/CgProf.hs +++ b/ghc/compiler/codeGen/CgProf.hs @@ -389,9 +389,9 @@ emitSetCCC :: CostCentre -> Code emitSetCCC cc | not opt_SccProfilingOn = nopC | otherwise = do - ASSERTM(sccAbleCostCentre cc) tmp <- newTemp wordRep - pushCostCentre tmp curCCS cc + ASSERT( sccAbleCostCentre cc ) + pushCostCentre tmp curCCS cc stmtC (CmmStore curCCSAddr (CmmReg tmp)) when (isSccCountCostCentre cc) $ stmtC (bumpSccCount curCCS) |