From da9cbce906561df5182e9f65ef7a16c065ec127a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 10 Jun 2009 10:47:48 +0000 Subject: [PATCH] don't check for stack underflow if we just had an overflow --- rts/Schedule.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; -- 1.7.10.4