diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-03-02 11:31:04 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-03-02 11:31:04 +0000 |
| commit | e30aca19def5c629a8429bd57e56535b7f8f85c8 (patch) | |
| tree | 64513fe1bd809cb0e8442df826a03fb73c324103 /rts/Ticker.h | |
| parent | 090bff7e86dbad7c429532994f3f2fe9d4d8b8ea (diff) | |
| download | haskell-e30aca19def5c629a8429bd57e56535b7f8f85c8.tar.gz | |
Use timer_create() for the interval timer, if available
This lets the threaded RTS use SIGVTALRM rather than SIGALRM for its
interval timer signal, so the threaded and non-threaded RTS are
compatible. It unfortunately doesn't completely fix #850/#1156, for
that we really have to use a restartable sleep instead of usleep().
Also I cleaned up the timer API a little: instead of returning an
error value that ultimately gets ignored, we now report errors from
system calls and exit.
Diffstat (limited to 'rts/Ticker.h')
| -rw-r--r-- | rts/Ticker.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Ticker.h b/rts/Ticker.h index f9555768b5..b06890a049 100644 --- a/rts/Ticker.h +++ b/rts/Ticker.h @@ -9,7 +9,7 @@ #ifndef TICKER_H #define TICKER_H -extern int startTicker( nat ms, TickProc handle_tick ); -extern int stopTicker ( void ); +extern void startTicker( nat ms, TickProc handle_tick ); +extern void stopTicker ( void ); #endif /* TICKER_H */ |