X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;fp=rts%2Fsm%2FGC.c;h=2eabdabee38b5a2bc7aa1d68f8bb4d9d24162ffa;hp=3bd50171c3e16149131ad996fcb09140681c396f;hb=65ac2f4cefcea7ca78a65ca22889b51b5a27d1f0;hpb=f1d99ae043da2a4825d88756275477d82d92c967

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 3bd5017..2eabdab 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -997,6 +997,9 @@ any_work (void)
 #endif
 
     gct->no_work++;
+#if defined(THREADED_RTS)
+    yieldThread();
+#endif
 
     return rtsFalse;
 }