rts/Threads.h

   1 /* ---------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 2006
   4  *
   5  * Thread-related functionality
   6  *
   7  * --------------------------------------------------------------------------*/
   8
   9 #ifndef THREADS_H
  10 #define THREADS_H
  11
  12 BEGIN_RTS_PRIVATE
  13
  14 #define END_BLOCKED_EXCEPTIONS_QUEUE ((MessageThrowTo*)END_TSO_QUEUE)
  15
  16 StgTSO * unblockOne (Capability *cap, StgTSO *tso);
  17 StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate);
  18
  19 void checkBlockingQueues (Capability *cap, StgTSO *tso);
  20 void wakeBlockingQueue   (Capability *cap, StgBlockingQueue *bq);
  21 void tryWakeupThread     (Capability *cap, StgTSO *tso);
  22
  23 // Wakes up a thread on a Capability (probably a different Capability
  24 // from the one held by the current Task).
  25 //
  26 #ifdef THREADED_RTS
  27 void wakeupThreadOnCapability (Capability *cap,
  28                                Capability *other_cap,
  29                                StgTSO *tso);
  30 #endif
  31
  32 void updateThunk         (Capability *cap, StgTSO *tso,
  33                           StgClosure *thunk, StgClosure *val);
  34
  35 void removeThreadFromMVarQueue (Capability *cap, StgMVar *mvar, StgTSO *tso);
  36
  37 rtsBool removeThreadFromQueue     (Capability *cap, StgTSO **queue, StgTSO *tso);
  38 rtsBool removeThreadFromDeQueue   (Capability *cap, StgTSO **head, StgTSO **tail, StgTSO *tso);
  39
  40 StgBool isThreadBound (StgTSO* tso);
  41
  42 #ifdef DEBUG
  43 void printThreadBlockage (StgTSO *tso);
  44 void printThreadStatus (StgTSO *t);
  45 void printAllThreads (void);
  46 void printThreadQueue (StgTSO *t);
  47 #endif
  48
  49 END_RTS_PRIVATE
  50
  51 #endif /* THREADS_H */