X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.h;h=dfe879e7bb03d050dc0b4840bd698185cae3f69e;hb=6eb7886a38836b8a6d7445d2003271b4e2125034;hp=d17235a2cbfaff890fc7d185adf8682da8c6e0a1;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/Threads.h b/rts/Threads.h
index d17235a..dfe879e 100644
--- a/rts/Threads.h
+++ b/rts/Threads.h
@@ -9,6 +9,10 @@
 #ifndef THREADS_H
 #define THREADS_H
 
+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);
 
@@ -27,4 +31,6 @@ void printAllThreads (void);
 void printThreadQueue (StgTSO *t);
 #endif
 
+END_RTS_PRIVATE
+
 #endif /* THREADS_H */