From a7005b6766b41360c7571c101901f56dc8d12df7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Apr 2010 08:17:12 +0000 Subject: [PATCH] initialise the headers of MSG_BLACKHOLE objects properly --- rts/StgMiscClosures.cmm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4