[commit: ghc] master: rts: Print message before SIGUSR2 backtrace (b890e88)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b890e88dc20f9b45fe769538d539258c616a3f25/ghc

>---------------------------------------------------------------

commit b890e88dc20f9b45fe769538d539258c616a3f25
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Wed Sep 13 08:21:20 2017 -0400

    rts: Print message before SIGUSR2 backtrace
    
    Reviewers: austin, erikd, simonmar
    
    Subscribers: rwbarton, thomie
    
    Differential Revision: https://phabricator.haskell.org/D3942


>---------------------------------------------------------------

b890e88dc20f9b45fe769538d539258c616a3f25
 rts/posix/Signals.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index 7471948..6b72890 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);