testsuite: attempt fixing fallout from 089b72f52
[ghc.git] / rts / RaiseAsync.h
index 1f61b8c..1f939d4 100644 (file)
 
 #include "BeginPrivate.h"
 
-void blockedThrowTo (Capability *cap, 
+void blockedThrowTo (Capability *cap,
                      StgTSO *target, MessageThrowTo *msg);
 
+StgTSO* raiseAsync (Capability *cap,
+                    StgTSO *tso,
+                    StgClosure *exception,
+                    rtsBool stop_at_atomically,
+                    StgUpdateFrame *stop_here);
+
 void throwToSingleThreaded (Capability *cap,
-                           StgTSO *tso,
-                           StgClosure *exception);
+                            StgTSO *tso,
+                            StgClosure *exception);
+
+void throwToSingleThreaded_ (Capability *cap,
+                             StgTSO *tso,
+                             StgClosure *exception,
+                             rtsBool stop_at_atomically);
 
-void throwToSingleThreaded_ (Capability *cap, 
-                            StgTSO *tso, 
-                            StgClosure *exception, 
-                            rtsBool stop_at_atomically);
+void throwToSelf (Capability *cap,
+                  StgTSO *tso,
+                  StgClosure *exception);
 
-void suspendComputation (Capability *cap, 
-                        StgTSO *tso, 
-                        StgUpdateFrame *stop_here);
+void suspendComputation (Capability *cap,
+                         StgTSO *tso,
+                         StgUpdateFrame *stop_here);
 
-MessageThrowTo *throwTo (Capability *cap,      // the Capability we hold 
+MessageThrowTo *throwTo (Capability *cap,      // the Capability we hold
                          StgTSO *source,
                          StgTSO *target,
                          StgClosure *exception); // the exception closure
@@ -52,6 +62,7 @@ interruptible(StgTSO *t)
 {
   switch (t->why_blocked) {
   case BlockedOnMVar:
+  case BlockedOnSTM:
   case BlockedOnMVarRead:
   case BlockedOnMsgThrowTo:
   case BlockedOnRead:
@@ -73,4 +84,3 @@ interruptible(StgTSO *t)
 #endif /* CMINUSMINUS */
 
 #endif /* RAISEASYNC_H */
-