rts/Messages.h

   1 /* ---------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 2010
   4  *
   5  * Inter-Capability message passing
   6  *
   7  * --------------------------------------------------------------------------*/
   8
   9 #include "BeginPrivate.h"
  10
  11 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
  12
  13 #ifdef THREADED_RTS
  14 void executeMessage (Capability *cap, Message *m);
  15 void sendMessage    (Capability *from_cap, Capability *to_cap, Message *msg);
  16 #endif
  17
  18 #include "Capability.h"
  19 #include "Updates.h" // for DEBUG_FILL_SLOP
  20
  21 INLINE_HEADER void
  22 doneWithMsgThrowTo (MessageThrowTo *m)
  23 {
  24     OVERWRITING_CLOSURE((StgClosure*)m);
  25     unlockClosure((StgClosure*)m, &stg_MSG_NULL_info);
  26     LDV_RECORD_CREATE(m);
  27 }
  28
  29 #include "EndPrivate.h"