X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=fa589059dc176d65c856362390c2ccdbd8b16447;hb=64d2f63295d25b55056c5c4698fcdb37150fbe05;hp=934c91f2ebc9311573862e2bbaa7c94d260a307e;hpb=5f15c042606033ce3b953837fc4a2f76674c4839;p=ghc-hetmet.git

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 934c91f..fa58905 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -11,7 +11,7 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#include "PosixSource.h"
+// #include "PosixSource.h"
 #include "Rts.h"
 #include "RtsFlags.h"
 #include "RtsUtils.h"
@@ -51,6 +51,7 @@
 #include "Sparks.h"
 
 #include <string.h> // for memset()
+#include <unistd.h>
 
 /* -----------------------------------------------------------------------------
    Global variables
@@ -1057,6 +1058,7 @@ loop:
 	       gct->thread_index, r);
 
     while (gc_running_threads != 0) {
+        usleep(1);
 	if (any_work()) {
 	    inc_running();
 	    goto loop;