[commit: ghc] master: rts: Allow for infinite stack size (d3b24e1)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d3b24e10d419f48e0839b08eb740d7138e56b390/ghc

>---------------------------------------------------------------

commit d3b24e10d419f48e0839b08eb740d7138e56b390
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Sep 6 22:48:52 2013 -0400

    rts: Allow for infinite stack size
    
    This is encoded as RtsFlags.GcFlags.maxStkSize == 0.


>---------------------------------------------------------------

d3b24e10d419f48e0839b08eb740d7138e56b390
 rts/Threads.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rts/Threads.c b/rts/Threads.c
index 8ee8d4f..af4353f 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -499,7 +499,8 @@ threadStackOverflow (Capability *cap, StgTSO *tso)
 
     IF_DEBUG(sanity,checkTSO(tso));
 
-    if (tso->tot_stack_size >= RtsFlags.GcFlags.maxStkSize) {
+    if (RtsFlags.GcFlags.maxStkSize > 0
+        && tso->tot_stack_size >= RtsFlags.GcFlags.maxStkSize) {
         // #3677: In a stack overflow situation, stack squeezing may
         // reduce the stack size, but we don't know whether it has been
         // reduced enough for the stack check to succeed if we try