initialise the headers of MVAR_TSO_QUEUE objects properly

[ghc-hetmet.git] / rts / PrimOps.cmm

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index ada23fd..892ef68 100644 (file)
--- 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;