From: Ian Lynagh <igloo@earth.li>
Date: Mon, 15 Dec 2008 19:40:47 +0000 (+0000)
Subject: Remove some redundant code
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=306fac3f65c2e68e6c320a9db221d126c989fad2

Remove some redundant code
We were looking at opt_DoTickyProfiling, and if it was set claling ifTicky
which looks at opt_DoTickyProfiling itself.
---

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 }