X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=a11a15e94d9733a9a84c79adddaa61e60597dc66;hb=5f8b35ad729740cab1cb8c884deb405dcc758683;hp=8ebedd4279f4d897e286efc7aadeeda9f0e9fd2a;hpb=80578b7defea703ad24efa908534a13e2ebc880b;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 8ebedd4..a11a15e 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2581,6 +2581,8 @@ exitScheduler( void )
 	boundTaskExiting(task);
 	stopTaskManager();
     }
+#else
+    freeCapability(&MainCapability);
 #endif
 }
 
@@ -2588,6 +2590,9 @@ void
 freeScheduler( void )
 {
     freeTaskManager();
+    if (n_capabilities != 1) {
+        stgFree(capabilities);
+    }
 #if defined(THREADED_RTS)
     closeMutex(&sched_mutex);
 #endif