From a0daca1935e7d07553cac7e3653882fd22e014e2 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Apr 2010 08:15:14 +0000 Subject: [PATCH 1/1] initialise the headers of MVAR_TSO_QUEUE objects properly --- rts/PrimOps.cmm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 1.7.10.4