X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.h;h=f6d2dfd11a5d4c5adb8fc417f48bdfd2728365d2;hb=432b9c9322181a3644083e3c19b7e240d90659e7;hp=541ca873fb4f8ef03346471b30fb2c2a8781829a;hpb=04cddd339c000df6d02c90ce59dbffa58d2fe166;p=ghc-hetmet.git diff --git a/rts/Threads.h b/rts/Threads.h index 541ca87..f6d2dfd 100644 --- a/rts/Threads.h +++ b/rts/Threads.h @@ -9,19 +9,10 @@ #ifndef THREADS_H #define THREADS_H -#if defined(GRAN) || defined(PARALLEL_HASKELL) -StgBlockingQueueElement * unblockOne (StgBlockingQueueElement *bqe, - StgClosure *node); -#else StgTSO * unblockOne (Capability *cap, StgTSO *tso); StgTSO * unblockOne_ (Capability *cap, StgTSO *tso, rtsBool allow_migrate); -#endif -#if defined(GRAN) || defined(PARALLEL_HASKELL) -void awakenBlockedQueue(StgBlockingQueueElement *q, StgClosure *node); -#else void awakenBlockedQueue (Capability *cap, StgTSO *tso); -#endif void removeThreadFromMVarQueue (Capability *cap, StgMVar *mvar, StgTSO *tso); void removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso);