diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-28 16:09:50 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-31 16:43:58 +0100 |
| commit | de3a8f7631b5276c30c90a256e8135a8ff3095e7 (patch) | |
| tree | 4c90507007f4ead15548f2002a0ff5d237f95a6e /compiler/codeGen/CgPrimOp.hs | |
| parent | 8aabe8d06f7202c9a6cd1133e0b1ebc81338eed9 (diff) | |
| download | haskell-de3a8f7631b5276c30c90a256e8135a8ff3095e7.tar.gz | |
Cleanup: add mkIntExpr and zeroExpr utils
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 c128cb7f79..0c8fb1a89a 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -89,7 +89,7 @@ emitPrimOp [res_r,res_c] IntAddCOp [aa,bb] _ CmmMachOp mo_wordNot [CmmMachOp mo_wordXor [aa,bb]], CmmMachOp mo_wordXor [aa, CmmReg (CmmLocal res_r)] ], - CmmLit (mkIntCLit (wORD_SIZE_IN_BITS - 1)) + mkIntExpr (wORD_SIZE_IN_BITS - 1) ] ] @@ -112,7 +112,7 @@ emitPrimOp [res_r,res_c] IntSubCOp [aa,bb] _ CmmMachOp mo_wordXor [aa,bb], CmmMachOp mo_wordXor [aa, CmmReg (CmmLocal res_r)] ], - CmmLit (mkIntCLit (wORD_SIZE_IN_BITS - 1)) + mkIntExpr (wORD_SIZE_IN_BITS - 1) ] ] |