Revert "Add capability sets to the event system. Contains code from Duncan Coutts."

[ghc-hetmet.git] / rts / Schedule.c

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 9b151d7..9636223 100644 (file)
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2030,16 +2030,16 @@ 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);
+    { 
+       nat i;
+       
+       for (i = 0; i < n_capabilities; i++) {
+            ASSERT(task->incall->tso == NULL);
+           shutdownCapability(&capabilities[i], task, wait_foreign);
+       }
     }
-    traceCapsetDelete(CAPSET_OSPROCESS_DEFAULT);
+#endif
 
     boundTaskExiting(task);
 }