From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 7 Apr 2010 08:17:12 +0000 (+0000)
Subject: initialise the headers of MSG_BLACKHOLE objects properly
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a7005b6766b41360c7571c101901f56dc8d12df7

initialise the headers of MSG_BLACKHOLE objects properly
---

diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm
index 1bc6dc6..c665749 100644
--- 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;