From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 10 Jun 2009 10:47:48 +0000 (+0000)
Subject: don't check for stack underflow if we just had an overflow
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=da9cbce906561df5182e9f65ef7a16c065ec127a

don't check for stack underflow if we just had an overflow
---

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;