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 (file)
--- 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 
   = 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 }
 
   = 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 (file)
--- 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 
   = 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 }
 
   = ifTicky $ do { bumpTickyCounter (sLit "RET_NEW_ctr")
                 ; bumpHistogram (sLit "RET_NEW_hst") arity }