From ca2e649101f250e444b4ac7c5204d28f236660e6 Mon Sep 17 00:00:00 2001 From: Peter Trommler Date: Fri, 9 Sep 2016 10:55:58 +0200 Subject: [PATCH] StgCmmPrim: Add missing write barrier. --- compiler/codeGen/StgCmmPrim.hs | 1 + 1 file changed, 1 insertion(+) Index: ghc-7.10.3/compiler/codeGen/StgCmmPrim.hs =================================================================== --- ghc-7.10.3.orig/compiler/codeGen/StgCmmPrim.hs +++ ghc-7.10.3/compiler/codeGen/StgCmmPrim.hs @@ -1324,6 +1324,7 @@ doWritePtrArrayOp addr idx val emit (setInfo addr (CmmLit (CmmLabel mkMAP_DIRTY_infoLabel))) -- the write barrier. We must write a byte into the mark table: -- bits8[a + header_size + StgMutArrPtrs_size(a) + x >> N] + emitPrimCall [] MO_WriteBarrier [] emit $ mkStore ( cmmOffsetExpr dflags (cmmOffsetExprW dflags (cmmOffsetB dflags addr (arrPtrsHdrSize dflags))