diff options
author | Nicolas Trangez <ikke@nicolast.be> | 2014-04-23 20:06:15 +0200 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-04-27 04:21:01 -0500 |
commit | f2595fd9d03803874df792072292d792a2c03bce (patch) | |
tree | 5b669cb741f70959332c66a90587ce2597ca9a7a /rts/posix/Signals.c | |
parent | 6d11a0e1400e44e16e0ee7734279c67619442a1d (diff) | |
download | haskell-f2595fd9d03803874df792072292d792a2c03bce.tar.gz |
Check return value of sigaction
Issue discovered by Coverity scan, CID 43142.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/posix/Signals.c')
-rw-r--r-- | rts/posix/Signals.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c index 01d5347ae7..f4a8341c6a 100644 --- a/rts/posix/Signals.c +++ b/rts/posix/Signals.c @@ -574,7 +574,9 @@ set_sigtstp_action (rtsBool handle) } sa.sa_flags = 0; sigemptyset(&sa.sa_mask); - sigaction(SIGTSTP, &sa, NULL); + if (sigaction(SIGTSTP, &sa, NULL) != 0) { + sysErrorBelch("warning: failed to install SIGTSTP handler"); + } } /* ----------------------------------------------------------------------------- |