diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-10 17:04:41 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-10 17:23:35 +0100 |
| commit | 94dbd655faefdcb4f49785a93b5c1af1c3529d30 (patch) | |
| tree | 93d8dda7c4363d347d51d7eb8f17282077e37cc7 /compiler/codeGen/CgPrimOp.hs | |
| parent | 26ebd1b72e5f8148274c72f0c981e3f64d1b2636 (diff) | |
| download | haskell-94dbd655faefdcb4f49785a93b5c1af1c3529d30.tar.gz | |
Pass Platform down to halfWordMask
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 1f572bf486..c2b7a11c33 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -568,7 +568,7 @@ emitPrimOp [res_h, res_l] WordAdd2Op [arg_x, arg_y] _ or x y = CmmMachOp (MO_Or wordWidth) [x, y] hww = CmmLit (CmmInt (fromIntegral (widthInBits (halfWordWidth platform))) wordWidth) - hwm = CmmLit (CmmInt halfWordMask wordWidth) + hwm = CmmLit (CmmInt (halfWordMask platform) wordWidth) stmt = CmmCall (CmmPrim (MO_Add2 wordWidth) (Just genericImpl)) [CmmHinted res_h NoHint, CmmHinted res_l NoHint] @@ -614,7 +614,7 @@ emitPrimOp [res_h, res_l] WordMul2Op [arg_x, arg_y] _ or x y = CmmMachOp (MO_Or wordWidth) [x, y] hww = CmmLit (CmmInt (fromIntegral (widthInBits (halfWordWidth platform))) wordWidth) - hwm = CmmLit (CmmInt halfWordMask wordWidth) + hwm = CmmLit (CmmInt (halfWordMask platform) wordWidth) stmt = CmmCall (CmmPrim (MO_U_Mul2 wordWidth) (Just genericImpl)) [CmmHinted res_h NoHint, CmmHinted res_l NoHint] |