From: simonmar <unknown>
Date: Wed, 8 Dec 2004 10:29:01 +0000 (+0000)
Subject: [project @ 2004-12-08 10:29:01 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1352
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8d750a5cede36c5f2767b7c869adc4f42f839871;p=ghc-hetmet.git

[project @ 2004-12-08 10:29:01 by simonmar]
deleteThread: don't attempt to delete threads blocked in foreign calls.
---

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