diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 11:38:24 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-04-11 14:46:33 +0100 |
| commit | 9d26519c20194abc3832578a55fbe31327519eeb (patch) | |
| tree | bc2439cc713d5dd7257a5a3a8620b4f2b857a586 /includes/rts | |
| parent | e12bec813e8a5077615c8113a2b8875d5fefc9da (diff) | |
| download | haskell-9d26519c20194abc3832578a55fbe31327519eeb.tar.gz | |
Improve the handling of threadDelay in the non-threaded RTS
Firstly, we were rounding up too much, such that the smallest delay
was 20ms. Secondly, there is no need to use millisecond resolution on
a 64-bit machine where we have room in the TSO to use the normal
nanosecond resolution that we use elsewhere in the RTS.
Diffstat (limited to 'includes/rts')
| -rw-r--r-- | includes/rts/storage/TSO.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/rts/storage/TSO.h b/includes/rts/storage/TSO.h index 5e54bff72c..82f5a75948 100644 --- a/includes/rts/storage/TSO.h +++ b/includes/rts/storage/TSO.h @@ -57,7 +57,7 @@ typedef union { #if !defined(THREADED_RTS) StgWord target; // Only for the non-threaded RTS: the target time for a thread - // blocked in threadDelay, in units of 10ms. This is a + // blocked in threadDelay, in units of 1ms. This is a // compromise: we don't want to take up much space in the TSO. If // you want better resolution for threadDelay, use -threaded. #endif |