From 306fac3f65c2e68e6c320a9db221d126c989fad2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 15 Dec 2008 19:40:47 +0000 Subject: [PATCH] Remove some redundant code We were looking at opt_DoTickyProfiling, and if it was set claling ifTicky which looks at opt_DoTickyProfiling itself. --- compiler/codeGen/CgTicky.hs | 2 -- compiler/codeGen/StgCmmTicky.hs | 2 -- 2 files changed, 4 deletions(-) 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 } diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index e4bebb4..33fe104 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.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 } -- 1.7.10.4