X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=84a15fbaf751f0e0d87278f0cb5b3f4ff2e43295;hb=c016a94ccbda0ce35925b8dcded0d9a422f73a74;hp=ef0c79a6ea99c245903cdd421c20c101d514a41f;hpb=c1580e72e315576b5f58427f1c29f268b565e95e;p=ghc-hetmet.git

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index ef0c79a..84a15fb 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -724,6 +724,11 @@ GarbageCollect ( rtsBool force_major_gc )
   // Update the stable pointer hash table.
   updateStablePtrTable(major_gc);
 
+  // Remove useless sparks from the spark pools
+#ifdef THREADED_RTS
+  pruneSparkQueues();
+#endif
+
   // check sanity after GC 
   IF_DEBUG(sanity, checkSanity());