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/CgForeignCall.hs | |
| parent | 8aabe8d06f7202c9a6cd1133e0b1ebc81338eed9 (diff) | |
| download | haskell-de3a8f7631b5276c30c90a256e8135a8ff3095e7.tar.gz | |
Cleanup: add mkIntExpr and zeroExpr utils
Diffstat (limited to 'compiler/codeGen/CgForeignCall.hs')
| -rw-r--r-- | compiler/codeGen/CgForeignCall.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs index a37245ea01..801d8a31c6 100644 --- a/compiler/codeGen/CgForeignCall.hs +++ b/compiler/codeGen/CgForeignCall.hs @@ -263,7 +263,7 @@ emitOpenNursery = stmtsC [ (CmmMachOp mo_wordMul [ CmmMachOp (MO_SS_Conv W32 wordWidth) [CmmLoad nursery_bdescr_blocks b32], - CmmLit (mkIntCLit bLOCK_SIZE) + mkIntExpr bLOCK_SIZE ]) (-1) ) |