diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-12 12:37:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-12 12:37:01 +0100 |
| commit | 44b5f471a314d964948c38684ce74b7a87df4ed8 (patch) | |
| tree | 075f88991983d976ad13714da61b9773a6ca0a02 /compiler/codeGen/CgPrimOp.hs | |
| parent | f611396a581e733c41cee41750c95675bdb64961 (diff) | |
| download | haskell-44b5f471a314d964948c38684ce74b7a87df4ed8.tar.gz | |
Pass DynFlags down to gcWord
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 92ff418049..aaa97a2132 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -167,7 +167,7 @@ emitPrimOp _ [res] GetCurrentCCSOp [_dummy_arg] _live = stmtC (CmmAssign (CmmLocal res) curCCS) emitPrimOp dflags [res] ReadMutVarOp [mutv] _ - = stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW dflags mutv (fixedHdrSize dflags) gcWord)) + = stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW dflags mutv (fixedHdrSize dflags) (gcWord dflags))) emitPrimOp dflags [] WriteMutVarOp [mutv,var] live = do stmtC (CmmStore (cmmOffsetW dflags mutv (fixedHdrSize dflags)) var) @@ -818,7 +818,7 @@ doIndexByteArrayOp _ _ _ _ doReadPtrArrayOp :: LocalReg -> CmmExpr -> CmmExpr -> Code doReadPtrArrayOp res addr idx = do dflags <- getDynFlags - mkBasicIndexedRead (arrPtrsHdrSize dflags) Nothing gcWord res addr idx + mkBasicIndexedRead (arrPtrsHdrSize dflags) Nothing (gcWord dflags) res addr idx doWriteOffAddrOp, doWriteByteArrayOp |