From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 21:40:23 +0000 (+0000)
Subject: tmp: usleep(1) during anyWork() if no work
X-Git-Tag: Before_cabalised-GHC~231
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=938142abe2999ef941ce4998b830fbd7e770fb4e

tmp: usleep(1) during anyWork() if no work
---

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index 4ba80c4..c284dee 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;
 }