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

[ghc-hetmet.git] / rts / sm / Scav.c

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