diff options
author | Ian Lynagh <ian@well-typed.com> | 2012-09-03 17:25:47 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2012-09-03 17:25:47 +0100 |
commit | da3362247b72531e1355748d1fdbc2c954a3f300 (patch) | |
tree | 137c904594794fcb68587a1a4c0b697a7572455c /compiler/codeGen/StgCmmTicky.hs | |
parent | 4f15146c1772ffe1b9d59df3239081f72f423801 (diff) | |
download | haskell-da3362247b72531e1355748d1fdbc2c954a3f300.tar.gz |
Remove doingTickyProfiling
It's now just 'dopt Opt_Ticky'
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
-rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 585d6b08eb..bb1c4cf788 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -332,8 +332,8 @@ tickyAllocHeap hp ifTicky :: FCode () -> FCode () ifTicky code = do dflags <- getDynFlags - if doingTickyProfiling dflags then code - else nopC + if dopt Opt_Ticky dflags then code + else nopC -- All the ticky-ticky counters are declared "unsigned long" in C bumpTickyCounter :: FastString -> FCode () |