diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2013-09-07 17:53:34 -0400 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-25 09:14:29 -0500 |
| commit | 7de07eb78c10217c87f0f6a4c12ef2927d044e00 (patch) | |
| tree | 6306c7ac1e55216aaf24d431c745fcab318fbfb4 /rts | |
| parent | 72f8b8d694362890a424f5fa21fef37cee921ecf (diff) | |
| download | haskell-7de07eb78c10217c87f0f6a4c12ef2927d044e00.tar.gz | |
rts: Print correct stack size on stack overflow
This requires that stackOverflow() in RtsUtils.c be passed a reference
to the current TSO. This requires a small change in libraries/base.
Diffstat (limited to 'rts')
| -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 b06b6af962..185f1e8bdd 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -114,12 +114,12 @@ stgFree(void* p) -------------------------------------------------------------------------- */ void -stackOverflow(void) +stackOverflow(StgTSO* tso) { - StackOverflowHook(RtsFlags.GcFlags.maxStkSize * sizeof(W_)); + StackOverflowHook(tso->tot_stack_size * sizeof(W_)); #if defined(TICKY_TICKY) - if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); + if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); #endif } |