From: simonmar <unknown>
Date: Mon, 25 Apr 2005 14:22:29 +0000 (+0000)
Subject: [project @ 2005-04-25 14:22:29 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~674
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8974a27fba33479109297890bd7b618a76eb6f68;p=ghc-hetmet.git

[project @ 2005-04-25 14:22:29 by simonmar]
interruptStgRts: call threadRunnable().  This might not work properly
from a signal handler, but it's all we can do (and seems to do
something reasonable on Linux).
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index d1cdcfc..ee69d03 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -3220,6 +3220,7 @@ interruptStgRts(void)
 {
     interrupted    = 1;
     context_switch = 1;
+    threadRunnable();
 }
 
 /* -----------------------------------------------------------------------------