X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=fd5536b913a83068032114fc8fd759fce3cea247;hb=7d9eb2e45b4a9ff4cb053b1ec37602be88528b62;hp=9b151d728329ea76ffb39dc5f397246cad6a1e65;hpb=58532eb46041aec8d4cbb48b054cb5b001edb43c;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 9b151d7..fd5536b 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2030,16 +2030,7 @@ exitScheduler (rtsBool wait_foreign USED_IF_THREADS)
     }
     sched_state = SCHED_SHUTTING_DOWN;
 
-    nat i;
-
-    for (i = 0; i < n_capabilities; i++) {
-#if defined(THREADED_RTS)
-        ASSERT(task->incall->tso == NULL);
-        shutdownCapability(&capabilities[i], task, wait_foreign);
-#endif
-        traceCapsetRemoveCap(CAPSET_OSPROCESS_DEFAULT, i);
-    }
-    traceCapsetDelete(CAPSET_OSPROCESS_DEFAULT);
+    shutdownCapabilities(task, wait_foreign);
 
     boundTaskExiting(task);
 }