Add ASSERTs to all calls of nameModule

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

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index ef0c79a..84a15fb 100644 (file)
--- 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());