-// Sparks are not roots for GC, so we don't mark them in
-// markSomeCapabilities(). Instead, we traverse the spark queues
-// after GC and throw away any that are unreachable.
-void
-updateCapabilitiesPostGC (void)
-{
-#if defined(THREADED_RTS)
- nat i;
- for (i = 0; i < n_capabilities; i++) {
- updateSparkQueue (&capabilities[i]);
- }
-#endif // THREADED_RTS
-}
-