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

da9cbce9 · Simon Marlow · 340fb6fe · da9cbce9
Commit da9cbce9 authored Jun 10, 2009 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

rts/Schedule.c rts/Schedule.c +3 -1

No files found.
--- 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;