summaryrefslogtreecommitdiff
path: root/rts/Schedule.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Schedule.c')
-rw-r--r--rts/Schedule.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c
index 54ebb43eef..eb9203f783 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -492,7 +492,11 @@ run_thread:
traceEventStopThread(cap, t, t->why_blocked + 6, 0);
}
} else {
- traceEventStopThread(cap, t, ret, 0);
+ if (ret == StackOverflow) {
+ traceEventStopThread(cap, t, ret, t->tot_stack_size);
+ } else {
+ traceEventStopThread(cap, t, ret, 0);
+ }
}
ASSERT_FULL_CAPABILITY_INVARIANTS(cap,task);