projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-09-10 14:53:44 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
Signals.c
diff --git
a/ghc/rts/Signals.c
b/ghc/rts/Signals.c
index
ced711f
..
3d287d6
100644
(file)
--- a/
ghc/rts/Signals.c
+++ b/
ghc/rts/Signals.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Signals.c,v 1.40 2003/10/31 23:24:47 sof Exp $
+ * $Id: Signals.c,v 1.42 2004/09/03 15:28:53 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-16,7
+16,6
@@
#include "Signals.h"
#include "RtsUtils.h"
#include "RtsFlags.h"
#include "Signals.h"
#include "RtsUtils.h"
#include "RtsFlags.h"
-#include "StablePriv.h"
#ifdef alpha_TARGET_ARCH
# if defined(linux_TARGET_OS)
#ifdef alpha_TARGET_ARCH
# if defined(linux_TARGET_OS)
@@
-169,7
+168,7
@@
generic_handler(int sig)
// stack full?
if (next_pending_handler == &pending_handler_buf[N_PENDING_HANDLERS]) {
// stack full?
if (next_pending_handler == &pending_handler_buf[N_PENDING_HANDLERS]) {
- prog_belch("too many pending signals");
+ errorBelch("too many pending signals");
stg_exit(EXIT_FAILURE);
}
stg_exit(EXIT_FAILURE);
}
@@
-437,7
+436,7
@@
initDefaultHandlers()
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGINT, &action, &oact) != 0) {
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGINT, &action, &oact) != 0) {
- prog_belch("warning: failed to install SIGINT handler");
+ errorBelch("warning: failed to install SIGINT handler");
}
#if defined(HAVE_SIGINTERRUPT)
}
#if defined(HAVE_SIGINTERRUPT)
@@
-449,7
+448,7
@@
initDefaultHandlers()
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGCONT, &action, &oact) != 0) {
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGCONT, &action, &oact) != 0) {
- prog_belch("warning: failed to install SIGCONT handler");
+ errorBelch("warning: failed to install SIGCONT handler");
}
// install the SIGFPE handler
}
// install the SIGFPE handler
@@
-467,7
+466,7
@@
initDefaultHandlers()
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGFPE, &action, &oact) != 0) {
sigemptyset(&action.sa_mask);
action.sa_flags = 0;
if (sigaction(SIGFPE, &action, &oact) != 0) {
- prog_belch("warning: failed to install SIGFPE handler");
+ errorBelch("warning: failed to install SIGFPE handler");
}
#endif
}
#endif