1ebb229e8e
update to Haskell LTS version 8.x OBS-URL: https://build.opensuse.org/request/show/459907 OBS-URL: https://build.opensuse.org/package/show/devel:languages:haskell/ghc?expand=0&rev=240
22 lines
927 B
Diff
22 lines
927 B
Diff
From ca2e649101f250e444b4ac7c5204d28f236660e6 Mon Sep 17 00:00:00 2001
|
|
From: Peter Trommler <ptrommler@acm.org>
|
|
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-8.0.2/compiler/codeGen/StgCmmPrim.hs
|
|
===================================================================
|
|
--- ghc-8.0.2.orig/compiler/codeGen/StgCmmPrim.hs
|
|
+++ ghc-8.0.2/compiler/codeGen/StgCmmPrim.hs
|
|
@@ -1357,6 +1357,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))
|