From 938142abe2999ef941ce4998b830fbd7e770fb4e Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 21:40:23 +0000
Subject: [PATCH] tmp: usleep(1) during anyWork() if no work

---
 rts/sm/Scav.c |    3 +++
 1 file changed, 3 insertions(+)

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;
 }    
-- 
1.7.10.4