diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-08-30 14:02:52 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-08-30 14:02:52 +0000 |
| commit | ab1e183aa7801f9260a9cbb6edbd553cf8249b25 (patch) | |
| tree | 7245d178055f0f05ce45c74d8eca56eea49af2b2 /rts/posix | |
| parent | ee4d9a57ab125607e3029a8c1d052114956811f5 (diff) | |
| download | haskell-ab1e183aa7801f9260a9cbb6edbd553cf8249b25.tar.gz | |
add sysErrorBelch() for reporting system call errors
Diffstat (limited to 'rts/posix')
| -rw-r--r-- | rts/posix/GetTime.c | 2 | ||||
| -rw-r--r-- | rts/posix/Signals.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/rts/posix/GetTime.c b/rts/posix/GetTime.c index 3a0764cb91..89d83a31cb 100644 --- a/rts/posix/GetTime.c +++ b/rts/posix/GetTime.c @@ -89,7 +89,7 @@ void getProcessTimes(Ticks *user, Ticks *elapsed) long ticks; ticks = sysconf(_SC_CLK_TCK); if ( ticks == -1 ) { - errorBelch("sysconf\n"); + sysErrorBelch("sysconf"); stg_exit(EXIT_FAILURE); } ClockFreq = ticks; diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c index 8645f1b826..a5044cd6de 100644 --- a/rts/posix/Signals.c +++ b/rts/posix/Signals.c @@ -506,7 +506,7 @@ initDefaultHandlers() sigemptyset(&action.sa_mask); action.sa_flags = 0; if (sigaction(SIGINT, &action, &oact) != 0) { - errorBelch("warning: failed to install SIGINT handler"); + sysErrorBelch("warning: failed to install SIGINT handler"); } #if defined(HAVE_SIGINTERRUPT) @@ -518,7 +518,7 @@ initDefaultHandlers() sigemptyset(&action.sa_mask); action.sa_flags = 0; if (sigaction(SIGCONT, &action, &oact) != 0) { - errorBelch("warning: failed to install SIGCONT handler"); + sysErrorBelch("warning: failed to install SIGCONT handler"); } // install the SIGFPE handler @@ -536,7 +536,7 @@ initDefaultHandlers() sigemptyset(&action.sa_mask); action.sa_flags = 0; if (sigaction(SIGFPE, &action, &oact) != 0) { - errorBelch("warning: failed to install SIGFPE handler"); + sysErrorBelch("warning: failed to install SIGFPE handler"); } #endif |