summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmTicky.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-07-02 15:48:08 +0100
committerIan Lynagh <ian@well-typed.com>2013-07-02 15:48:08 +0100
commitaec9b2d7092fbf8b1ba1c844d884c2ca0f229ba5 (patch)
tree1226e483bf4a16e5f8404ab35e554b5d805f0551 /compiler/codeGen/StgCmmTicky.hs
parent98810fe81d8e8c9122c206f08a4639c1a4a77f49 (diff)
downloadhaskell-aec9b2d7092fbf8b1ba1c844d884c2ca0f229ba5.tar.gz
Fix bumpTickyLitBy[E] on Win64; fixes #7940
A comment claimed that the ticky counters are unsigned longs, but as far as I can see that isn't the case: They're already word-sized values.
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
-rw-r--r--compiler/codeGen/StgCmmTicky.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs
index 6c606476c4..f520dc627e 100644
--- a/compiler/codeGen/StgCmmTicky.hs
+++ b/compiler/codeGen/StgCmmTicky.hs
@@ -570,14 +570,12 @@ bumpTickyLit lhs = bumpTickyLitBy lhs 1
bumpTickyLitBy :: CmmLit -> Int -> FCode ()
bumpTickyLitBy lhs n = do
dflags <- getDynFlags
- -- All the ticky-ticky counters are declared "unsigned long" in C
- emit (addToMem (cLong dflags) (CmmLit lhs) n)
+ emit (addToMem (bWord dflags) (CmmLit lhs) n)
bumpTickyLitByE :: CmmLit -> CmmExpr -> FCode ()
bumpTickyLitByE lhs e = do
dflags <- getDynFlags
- -- All the ticky-ticky counters are declared "unsigned long" in C
- emit (addToMemE (cLong dflags) (CmmLit lhs) e)
+ emit (addToMemE (bWord dflags) (CmmLit lhs) e)
bumpHistogram :: FastString -> Int -> FCode ()
bumpHistogram _lbl _n