diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 23708fe568..6fe934b54c 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -811,7 +811,7 @@ emitCloneArray info_p res_r src0 src_off0 n0 live = do (CmmLit $ mkIntCLit 0) let arr = CmmReg (CmmLocal arr_r) - emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCSAddr + emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCS stmtC $ CmmStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE + oFFSET_StgMutArrPtrs_ptrs)) n stmtC $ CmmStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE + diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index 8935d56537..f8cc4256f4 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -877,7 +877,7 @@ emitCloneArray info_p res_r src0 src_off0 n0 = do (CmmLit $ mkIntCLit 0) let arr = CmmReg (CmmLocal arr_r) - emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCSAddr + emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCS emit $ mkStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE + oFFSET_StgMutArrPtrs_ptrs)) n emit $ mkStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE + |