Commit a7005b67 authored by Simon Marlow's avatar Simon Marlow

initialise the headers of MSG_BLACKHOLE objects properly

parent a0daca19
......@@ -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;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment