X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.h;h=776dd93cab5a96e9b0acfcd4e68aaed260157ae3;hb=a6049f031d1693ac8a365d9b2adb02a6f835de47;hp=e3680f2d5063fd33520029cd074396dfa014c744;hpb=f4692220c7cbdadaa633f50eb2b30b59edb30183;p=ghc-hetmet.git diff --git a/rts/Threads.h b/rts/Threads.h index e3680f2..776dd93 100644 --- a/rts/Threads.h +++ b/rts/Threads.h @@ -9,7 +9,7 @@ #ifndef THREADS_H #define THREADS_H -BEGIN_RTS_PRIVATE +#include "BeginPrivate.h" #define END_BLOCKED_EXCEPTIONS_QUEUE ((MessageThrowTo*)END_TSO_QUEUE) @@ -21,6 +21,9 @@ void wakeBlockingQueue (Capability *cap, StgBlockingQueue *bq); void tryWakeupThread (Capability *cap, StgTSO *tso); void migrateThread (Capability *from, StgTSO *tso, Capability *to); +// like tryWakeupThread(), but assumes the TSO is not ThreadRelocated +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). // @@ -45,6 +48,6 @@ void printAllThreads (void); void printThreadQueue (StgTSO *t); #endif -END_RTS_PRIVATE +#include "EndPrivate.h" #endif /* THREADS_H */