diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-15 19:40:47 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-15 19:40:47 +0000 |
| commit | 306fac3f65c2e68e6c320a9db221d126c989fad2 (patch) | |
| tree | 1793c79e0752325079020f2c5d9f6e9d01e7a5b6 /compiler/codeGen/StgCmmTicky.hs | |
| parent | db77c1652c1bba51690a57c084b7a9294b77cc38 (diff) | |
| download | haskell-306fac3f65c2e68e6c320a9db221d126c989fad2.tar.gz | |
Remove some redundant code
We were looking at opt_DoTickyProfiling, and if it was set claling ifTicky
which looks at opt_DoTickyProfiling itself.
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index e4bebb447f..33fe104def 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 } |