X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=b350ade5fae58f1a17615653d70f2e00dabdd3ff;hb=58b2c6dfaf64a06eff317235f8ac9b7f73b5bf5a;hp=5ed575ea7fdb0c64aeae4ad8d855059305414371;hpb=497f8aa6c2c8770daf3d39f57ee5e04dcdcc3778;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 5ed575e..b350ade 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1997,12 +1997,7 @@ initScheduler(void)
 }
 
 void
-exitScheduler(
-    rtsBool wait_foreign
-#if !defined(THREADED_RTS)
-                         __attribute__((unused))
-#endif
-)
+exitScheduler (rtsBool wait_foreign USED_IF_THREADS)
                /* see Capability.c, shutdownCapability() */
 {
     Task *task = NULL;