initialise the headers of MSG_BLACKHOLE objects properly

dmpots · Apr 7, 2010 · a7005b6 · a7005b6
1 parent a0daca1
commit a7005b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm
@@ -272,7 +272,7 @@ retry:
         ("ptr" msg) = foreign "C" allocate(MyCapability() "ptr", 
                                            BYTES_TO_WDS(SIZEOF_MessageBlackHole)) [R1];
 
-        StgHeader_info(msg) = stg_MSG_BLACKHOLE_info;
+        SET_HDR(msg, stg_MSG_BLACKHOLE_info, CCS_SYSTEM);
         MessageBlackHole_tso(msg) = CurrentTSO;
         MessageBlackHole_bh(msg) = R1;