diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-02-20 09:07:16 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-20 09:07:16 +0000 |
| commit | ca8ac445fedf1ef7604ba0b21f2bca0abe461ef8 (patch) | |
| tree | f8155f269e24c64fff65f9585c1ff37db0303f04 /rts/win32 | |
| parent | ad17cf6e34b6ab03f19914e7d2c1262b073db3fa (diff) | |
| download | haskell-ca8ac445fedf1ef7604ba0b21f2bca0abe461ef8.tar.gz | |
Fix sleep delay for the non-threaded Windows RTS
This is the Windows counterpart to "Make the non-threaded-RTS
threadDelay wait at least as long as asked"
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/IOManager.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/win32/IOManager.c b/rts/win32/IOManager.c index 764be69872..6af42456ae 100644 --- a/rts/win32/IOManager.c +++ b/rts/win32/IOManager.c @@ -190,7 +190,7 @@ IOWorkerProc(PVOID param) * * Note: Sleep() is in milliseconds, not micros. */ - Sleep(work->workData.delayData.msecs / 1000); + Sleep((work->workData.delayData.msecs + 999) / 1000); len = work->workData.delayData.msecs; complData = NULL; fd = 0; |