Fix for interruptible FFI handling

[ghc-hetmet.git] / rts / RaiseAsync.c

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index cbbdc95..c4c3f1d 100644 (file)
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -667,14 +667,6 @@ removeFromQueues(Capability *cap, StgTSO *tso)
        goto done;
 #endif
 
-  case BlockedOnCCall_Interruptible:
-  case BlockedOnCCall:
-      // ccall shouldn't be put on the run queue, because whenever
-      // we raise an exception for such a blocked thread, it's only
-      // when we're /exiting/ the call.
-      tso->why_blocked = NotBlocked;
-      return;
-
   default:
       barf("removeFromQueues: %d", tso->why_blocked);
   }