Remove old GUM/GranSim code
[ghc.git] / 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 StgTSO * unblockOne (Capability *cap, StgTSO *tso);
13 StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate);
14
15 void awakenBlockedQueue (Capability *cap, StgTSO *tso);
16
17 void removeThreadFromMVarQueue (Capability *cap, StgMVar *mvar, StgTSO *tso);
18 void removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso);
19 void removeThreadFromDeQueue (Capability *cap, StgTSO **head, StgTSO **tail, StgTSO *tso);
20
21 StgBool isThreadBound (StgTSO* tso);
22
23 #ifdef DEBUG
24 void printThreadBlockage (StgTSO *tso);
25 void printThreadStatus (StgTSO *t);
26 void printAllThreads (void);
27 void printThreadQueue (StgTSO *t);
28 # if defined(PARALLEL_HASKELL)
29 void print_bq (StgClosure *node);
30 void print_bqe (StgBlockingQueueElement *bqe);
31 nat run_queue_len (void);
32 # elif defined(GRAN)
33 void print_bq (StgClosure *node);
34 # endif
35 #endif
36
37 #endif /* THREADS_H */