X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=8bd42414b52f25a8342913738063f6d32c5fd6ab;hb=d759c7231dde979ed2824bd39b2fdff24357d355;hp=441e97924ebaeaa4d8fe03072d87fbae852c6662;hpb=16ed3e3cd3ba05ae7222f8da2c80f8294540817d;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 441e979..8bd4241 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2577,7 +2577,13 @@ initScheduler(void)
 }
 
 void
-exitScheduler( void )
+exitScheduler(
+    rtsBool wait_foreign
+#if !defined(THREADED_RTS)
+                         __attribute__((unused))
+#endif
+)
+               /* see Capability.c, shutdownCapability() */
 {
     Task *task = NULL;
 
@@ -2599,7 +2605,7 @@ exitScheduler( void )
 	nat i;
 	
 	for (i = 0; i < n_capabilities; i++) {
-	    shutdownCapability(&capabilities[i], task);
+	    shutdownCapability(&capabilities[i], task, wait_foreign);
 	}
 	boundTaskExiting(task);
 	stopTaskManager();