projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a0daca1
)
initialise the headers of MSG_BLACKHOLE objects properly
author
Simon Marlow
<marlowsd@gmail.com>
Wed, 7 Apr 2010 08:17:12 +0000
(08:17 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Wed, 7 Apr 2010 08:17:12 +0000
(08:17 +0000)
rts/StgMiscClosures.cmm
patch
|
blob
|
history
diff --git
a/rts/StgMiscClosures.cmm
b/rts/StgMiscClosures.cmm
index
1bc6dc6
..
c665749
100644
(file)
--- 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;