From: Simon Marlow Date: Wed, 7 Apr 2010 08:15:14 +0000 (+0000) Subject: initialise the headers of MVAR_TSO_QUEUE objects properly X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a0daca1935e7d07553cac7e3653882fd22e014e2;p=ghc-hetmet.git initialise the headers of MVAR_TSO_QUEUE objects properly --- diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index ada23fd..892ef68 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1171,7 +1171,7 @@ stg_takeMVarzh q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1); - StgHeader_info(q) = stg_MVAR_TSO_QUEUE_info; + SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM); StgMVarTSOQueue_link(q) = END_TSO_QUEUE; StgMVarTSOQueue_tso(q) = CurrentTSO; @@ -1330,7 +1330,7 @@ stg_putMVarzh q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1); - StgHeader_info(q) = stg_MVAR_TSO_QUEUE_info; + SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM); StgMVarTSOQueue_link(q) = END_TSO_QUEUE; StgMVarTSOQueue_tso(q) = CurrentTSO;