rts/Messages.h

   1 /* ---------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 2010
   4  *
   5  * Inter-Capability message passing
   6  *
   7  * --------------------------------------------------------------------------*/
   8
   9 BEGIN_RTS_PRIVATE
  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 END_RTS_PRIVATE