diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-09-13 08:21:20 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-13 10:39:56 -0400 |
| commit | b890e88dc20f9b45fe769538d539258c616a3f25 (patch) | |
| tree | eff692cee33074fd384f916825296722be61da75 | |
| parent | dafa0128950a6b18d79818881b3eeb6dc5c855b4 (diff) | |
| download | haskell-b890e88dc20f9b45fe769538d539258c616a3f25.tar.gz | |
rts: Print message before SIGUSR2 backtrace
Reviewers: austin, erikd, simonmar
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3942
| -rw-r--r-- | rts/posix/Signals.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c index 7471948cc0..6b728905e6 100644 --- a/rts/posix/Signals.c +++ b/rts/posix/Signals.c @@ -539,6 +539,7 @@ backtrace_handler(int sig STG_UNUSED) #if USE_LIBDW LibdwSession *session = libdwInit(); Backtrace *bt = libdwGetBacktrace(session); + fprintf(stderr, "\nCaught SIGUSR2; Backtrace:\n"); libdwPrintBacktrace(session, stderr, bt); backtraceFree(bt); libdwFree(session); |