Commit aec9b2d7 authored by ian@well-typed.com's avatar ian@well-typed.com

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.
parent 98810fe8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment