diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 273e9c01bc..8df2dcac28 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -499,12 +499,12 @@ tickyAllocHeap genuine hp (CmmLit (cmmLabelOffB ticky_ctr (oFFSET_StgEntCounter_allocs dflags))) bytes, -- Bump the global allocation total ALLOC_HEAP_tot - addToMemLbl (cLong dflags) + addToMemLbl (bWord dflags) (mkCmmDataLabel rtsUnitId (fsLit "ALLOC_HEAP_tot")) bytes, -- Bump the global allocation counter ALLOC_HEAP_ctr if not genuine then mkNop - else addToMemLbl (cLong dflags) + else addToMemLbl (bWord dflags) (mkCmmDataLabel rtsUnitId (fsLit "ALLOC_HEAP_ctr")) 1 ]} @@ -613,11 +613,11 @@ bumpHistogram :: FastString -> Int -> FCode () bumpHistogram lbl n = do dflags <- getDynFlags let offset = n `min` (tICKY_BIN_COUNT dflags - 1) - emit (addToMem (cLong dflags) + emit (addToMem (bWord dflags) (cmmIndexExpr dflags - (cLongWidth dflags) + (wordWidth dflags) (CmmLit (CmmLabel (mkCmmDataLabel rtsUnitId lbl))) - (CmmLit (CmmInt (fromIntegral offset) (cLongWidth dflags)))) + (CmmLit (CmmInt (fromIntegral offset) (wordWidth dflags)))) 1) ------------------------------------------------------------------ |