Typos in comments [ci skip]
[ghc.git] / rts / RaiseAsync.h
index 1f61b8c..3f65e25 100644 (file)
 
 #include "BeginPrivate.h"
 
-void blockedThrowTo (Capability *cap, 
-                     StgTSO *target, MessageThrowTo *msg);
+StgTSO* raiseAsync (Capability *cap,
+                    StgTSO *tso,
+                    StgClosure *exception,
+                    bool 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,
+                             bool stop_at_atomically);
 
-void suspendComputation (Capability *cap, 
-                        StgTSO *tso, 
-                        StgUpdateFrame *stop_here);
+void throwToSelf (Capability *cap,
+                  StgTSO *tso,
+                  StgClosure *exception);
 
-MessageThrowTo *throwTo (Capability *cap,      // the Capability we hold 
+void suspendComputation (Capability *cap,
+                         StgTSO *tso,
+                         StgUpdateFrame *stop_here);
+
+MessageThrowTo *throwTo (Capability *cap,      // the Capability we hold
                          StgTSO *source,
                          StgTSO *target,
                          StgClosure *exception); // the exception closure
 
-nat throwToMsg (Capability *cap,
+uint32_t throwToMsg (Capability *cap,
                 MessageThrowTo *msg);
 
 int  maybePerformBlockedException (Capability *cap, StgTSO *tso);
@@ -52,6 +59,7 @@ interruptible(StgTSO *t)
 {
   switch (t->why_blocked) {
   case BlockedOnMVar:
+  case BlockedOnSTM:
   case BlockedOnMVarRead:
   case BlockedOnMsgThrowTo:
   case BlockedOnRead:
@@ -73,4 +81,3 @@ interruptible(StgTSO *t)
 #endif /* CMINUSMINUS */
 
 #endif /* RAISEASYNC_H */
-