diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-16 09:30:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-16 13:27:57 +0000 |
| commit | a9e17cc2fdadf34b6f2bdd1e8889259327d31578 (patch) | |
| tree | c0c7d1c1b12a8070a7079b861312a0c2735990b7 /rts | |
| parent | 384f60996747b74aad7f3477e55433e822dd6398 (diff) | |
| download | haskell-a9e17cc2fdadf34b6f2bdd1e8889259327d31578.tar.gz | |
Fix for tick intervals greater than one second.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/posix/Itimer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/posix/Itimer.c b/rts/posix/Itimer.c index ece54910c2..d928147af8 100644 --- a/rts/posix/Itimer.c +++ b/rts/posix/Itimer.c @@ -155,7 +155,7 @@ startTicker(void) struct itimerspec it; it.it_value.tv_sec = TimeToSeconds(itimer_interval); - it.it_value.tv_nsec = TimeToNS(itimer_interval); + it.it_value.tv_nsec = TimeToNS(itimer_interval) % 1000000000; it.it_interval = it.it_value; if (timer_settime(timer, 0, &it, NULL) != 0) { @@ -168,7 +168,7 @@ startTicker(void) struct itimerval it; it.it_value.tv_sec = TimeToSeconds(itimer_interval); - it.it_value.tv_usec = TimeToUS(itimer_interval); + it.it_value.tv_usec = TimeToUS(itimer_interval) % 1000000; it.it_interval = it.it_value; if (setitimer(ITIMER_REAL, &it, NULL) != 0) { |