1 /* ---------------------------------------------------------------------------
3 * (c) The GHC Team, 2010
5 * Inter-Capability message passing
7 * --------------------------------------------------------------------------*/
9 #include "BeginPrivate.h"
11 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
14 void executeMessage (Capability *cap, Message *m);
15 void sendMessage (Capability *from_cap, Capability *to_cap, Message *msg);
18 #include "Capability.h"
19 #include "Updates.h" // for DEBUG_FILL_SLOP
22 doneWithMsgThrowTo (MessageThrowTo *m)
24 OVERWRITING_CLOSURE((StgClosure*)m);
25 unlockClosure((StgClosure*)m, &stg_MSG_NULL_info);
29 #include "EndPrivate.h"