diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 08:17:12 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 08:17:12 +0000 |
| commit | a7005b6766b41360c7571c101901f56dc8d12df7 (patch) | |
| tree | ef1acdf4c916773855b3ec452dc773acc481d2ee /rts/StgMiscClosures.cmm | |
| parent | a0daca1935e7d07553cac7e3653882fd22e014e2 (diff) | |
| download | haskell-a7005b6766b41360c7571c101901f56dc8d12df7.tar.gz | |
initialise the headers of MSG_BLACKHOLE objects properly
Diffstat (limited to 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 1bc6dc6a2b..c665749632 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; |