diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-14 13:57:48 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-14 13:57:48 +0100 |
| commit | 041e832cf0ef490dd0d4fd24d56a2f7f1adb5c9c (patch) | |
| tree | d22a1cbf361f5cdf60cd35205638e2419c0db6f3 /compiler/codeGen/CgPrimOp.hs | |
| parent | 291da8a0624d3844d30931d0e89f51e3daf03a61 (diff) | |
| download | haskell-041e832cf0ef490dd0d4fd24d56a2f7f1adb5c9c.tar.gz | |
Move some more constants fo platformConstants
Diffstat (limited to 'compiler/codeGen/CgPrimOp.hs')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 76ee148ef7..d77784dcf4 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -1079,11 +1079,11 @@ emitSetCards dst_start dst_cards_start n live = do -- Convert an element index to a card index card :: DynFlags -> CmmExpr -> CmmExpr -card dflags i = cmmUShrWord dflags i (CmmLit (mkIntCLit dflags mUT_ARR_PTRS_CARD_BITS)) +card dflags i = cmmUShrWord dflags i (CmmLit (mkIntCLit dflags (mUT_ARR_PTRS_CARD_BITS dflags))) -- Convert a number of elements to a number of cards, rounding up cardRoundUp :: DynFlags -> CmmExpr -> CmmExpr -cardRoundUp dflags i = card dflags (cmmAddWord dflags i (CmmLit (mkIntCLit dflags ((1 `shiftL` mUT_ARR_PTRS_CARD_BITS) - 1)))) +cardRoundUp dflags i = card dflags (cmmAddWord dflags i (CmmLit (mkIntCLit dflags ((1 `shiftL` mUT_ARR_PTRS_CARD_BITS dflags) - 1)))) bytesToWordsRoundUp :: DynFlags -> CmmExpr -> CmmExpr bytesToWordsRoundUp dflags e |