X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=c840c7864435f8eb86a70e8f4e8bbc1b4f2db386;hb=da9cbce906561df5182e9f65ef7a16c065ec127a;hp=51a8d2a842466069fbed9adbb82bd426cb71198a;hpb=dd56e9ab4544e83d27532a8d9058140bfe81825c;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 51a8d2a..c840c78 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -584,7 +584,9 @@ run_thread:
     
     schedulePostRunThread(cap,t);
 
-    t = threadStackUnderflow(task,t);
+    if (ret != StackOverflow) {
+        t = threadStackUnderflow(task,t);
+    }
 
     ready_to_gc = rtsFalse;