X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCgTicky.hs;h=5422127ae516b198264f47af48cf760adc66af51;hp=b23b34caa4983c6734624cc28dae4a94d888a94b;hb=306fac3f65c2e68e6c320a9db221d126c989fad2;hpb=db77c1652c1bba51690a57c084b7a9294b77cc38 diff --git a/compiler/codeGen/CgTicky.hs b/compiler/codeGen/CgTicky.hs index b23b34c..5422127 100644 --- a/compiler/codeGen/CgTicky.hs +++ b/compiler/codeGen/CgTicky.hs @@ -190,8 +190,6 @@ tickyReturnOldCon arity = ifTicky $ do { bumpTickyCounter (sLit "RET_OLD_ctr") ; bumpHistogram (sLit "RET_OLD_hst") arity } tickyReturnNewCon arity - | not opt_DoTickyProfiling = nopC - | otherwise = ifTicky $ do { bumpTickyCounter (sLit "RET_NEW_ctr") ; bumpHistogram (sLit "RET_NEW_hst") arity }