diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:40:23 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 21:40:23 +0000 |
| commit | 938142abe2999ef941ce4998b830fbd7e770fb4e (patch) | |
| tree | 886e629dabae7abb4e798100272571bf55a6864d /rts | |
| parent | 5244f537d12bdb5e016ce7b04e9181b364e5cb27 (diff) | |
| download | haskell-938142abe2999ef941ce4998b830fbd7e770fb4e.tar.gz | |
tmp: usleep(1) during anyWork() if no work
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Scav.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 4ba80c4869..c284dee9cc 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -11,6 +11,8 @@ * * ---------------------------------------------------------------------------*/ +#include <unistd.h> + #include "Rts.h" #include "RtsFlags.h" #include "Storage.h" @@ -1583,6 +1585,7 @@ any_work (void) } gct->no_work++; + usleep(1); return rtsFalse; } |