projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle IND_STATIC in isRetainer
[ghc-hetmet.git]
/
rts
/
StgMiscClosures.cmm
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];
("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;
MessageBlackHole_tso(msg) = CurrentTSO;
MessageBlackHole_bh(msg) = R1;