diff options
| author | Austin Seipp <aseipp@pobox.com> | 2013-09-08 16:17:36 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2013-09-08 16:17:36 -0500 |
| commit | 88dba610df290ff7807a76f702f2e5d41887500b (patch) | |
| tree | e1324062ceef817866771e5bb3f4a93151ba3fb4 /rts/RtsUtils.c | |
| parent | c798a8c6c66d826efdc0201fa56d45337eecc2af (diff) | |
| download | haskell-88dba610df290ff7807a76f702f2e5d41887500b.tar.gz | |
Revert "Default to infinite stack size (#8189)"
This reverts commit d85044f6b201eae0a9e453b89c0433608e0778f0.
Diffstat (limited to 'rts/RtsUtils.c')
| -rw-r--r-- | rts/RtsUtils.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index 604c7eed61..cb9002c361 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -114,12 +114,12 @@ stgFree(void* p) -------------------------------------------------------------------------- */ void -stackOverflow(StgTSO* tso) +stackOverflow(void) { - StackOverflowHook(tso->tot_stack_size * sizeof(W_)); + StackOverflowHook(RtsFlags.GcFlags.maxStkSize * sizeof(W_)); #if defined(TICKY_TICKY) - if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); + if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); #endif } |