From 7e570676bd0a57f8a77e5577d9f27e2d3159193e Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Mon, 19 Nov 2018 11:34:13 +0000
Subject: eventlog: Log the current stack size when stack overflows

Reviewers: maoe, bgamari, erikd, simonmar

Reviewed By: simonmar

Subscribers: rwbarton, carter, sjorn3

Differential Revision: https://phabricator.haskell.org/D5287
---
 rts/Schedule.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'rts/Schedule.c')

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);
-- 
cgit v1.2.1