X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FThreads.h;h=000cf1b8e2010abfc4978e3a36c5ebc513d633a2;hp=e58b0db993c825a074441d832e8c2a89fd302d66;hb=5d52d9b64c21dcf77849866584744722f8121389;hpb=7d7c187b4a12f1bb350e85cdb0115e19537cc704 diff --git a/rts/Threads.h b/rts/Threads.h index e58b0db..000cf1b 100644 --- a/rts/Threads.h +++ b/rts/Threads.h @@ -9,16 +9,33 @@ #ifndef THREADS_H #define THREADS_H -#pragma GCC visibility push(hidden) +BEGIN_RTS_PRIVATE + +#define END_BLOCKED_EXCEPTIONS_QUEUE ((MessageThrowTo*)END_TSO_QUEUE) StgTSO * unblockOne (Capability *cap, StgTSO *tso); StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate); -void awakenBlockedQueue (Capability *cap, StgTSO *tso); +void checkBlockingQueues (Capability *cap, StgTSO *tso); +void wakeBlockingQueue (Capability *cap, StgBlockingQueue *bq); +void tryWakeupThread (Capability *cap, StgTSO *tso); + +// Wakes up a thread on a Capability (probably a different Capability +// from the one held by the current Task). +// +#ifdef THREADED_RTS +void wakeupThreadOnCapability (Capability *cap, + Capability *other_cap, + StgTSO *tso); +#endif + +void updateThunk (Capability *cap, StgTSO *tso, + StgClosure *thunk, StgClosure *val); void removeThreadFromMVarQueue (Capability *cap, StgMVar *mvar, StgTSO *tso); -void removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso); -void removeThreadFromDeQueue (Capability *cap, StgTSO **head, StgTSO **tail, StgTSO *tso); + +rtsBool removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso); +rtsBool removeThreadFromDeQueue (Capability *cap, StgTSO **head, StgTSO **tail, StgTSO *tso); StgBool isThreadBound (StgTSO* tso); @@ -29,6 +46,6 @@ void printAllThreads (void); void printThreadQueue (StgTSO *t); #endif -#pragma GCC visibility pop +END_RTS_PRIVATE #endif /* THREADS_H */