diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-07-02 15:48:08 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-07-02 15:48:08 +0100 |
| commit | aec9b2d7092fbf8b1ba1c844d884c2ca0f229ba5 (patch) | |
| tree | 1226e483bf4a16e5f8404ab35e554b5d805f0551 /compiler/codeGen/StgCmmTicky.hs | |
| parent | 98810fe81d8e8c9122c206f08a4639c1a4a77f49 (diff) | |
| download | haskell-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.hs | 6 |
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 |