From 8d750a5cede36c5f2767b7c869adc4f42f839871 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Dec 2004 10:29:01 +0000
Subject: [PATCH] [project @ 2004-12-08 10:29:01 by simonmar] deleteThread:
 don't attempt to delete threads blocked in foreign calls.

---
 ghc/rts/Schedule.c |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 09c4602..ab82e9e 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -3013,7 +3013,10 @@ unblockThread(StgTSO *tso)
 void 
 deleteThread(StgTSO *tso)
 {
-  raiseAsync(tso,NULL);
+  if (tso->why_blocked != BlockedOnCCall &&
+      tso->why_blocked != BlockedOnCCall_NoUnblockExc) {
+      raiseAsync(tso,NULL);
+  }
 }
 
 #ifdef FORKPROCESS_PRIMOP_SUPPORTED
-- 
1.7.10.4