1 /* ---------------------------------------------------------------------------
3 * (c) The GHC Team, 2010
5 * Inter-Capability message passing
7 * --------------------------------------------------------------------------*/
9 #include "BeginPrivate.h"
11 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
12 StgTSO * blackHoleOwner (StgClosure *bh);
15 void executeMessage (Capability *cap, Message *m);
16 void sendMessage (Capability *from_cap, Capability *to_cap, Message *msg);
19 #include "Capability.h"
20 #include "Updates.h" // for DEBUG_FILL_SLOP
23 doneWithMsgThrowTo (MessageThrowTo *m)
25 OVERWRITING_CLOSURE((StgClosure*)m);
26 unlockClosure((StgClosure*)m, &stg_MSG_NULL_info);
30 #include "EndPrivate.h"