From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 1 Dec 2009 11:33:52 +0000 (+0000)
Subject: exitScheduler: move boundTaskExiting call outside #ifdef THREADED_RTS
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9136c7f5b4165a9ec42c75c41adb5dd1737e4449

exitScheduler: move boundTaskExiting call outside #ifdef THREADED_RTS
Fixes a little leaked memory at shutdown in non-threaded RTS
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c377974..bb36f9b 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2100,9 +2100,10 @@ exitScheduler(
 	for (i = 0; i < n_capabilities; i++) {
 	    shutdownCapability(&capabilities[i], task, wait_foreign);
 	}
-	boundTaskExiting(task);
     }
 #endif
+
+    boundTaskExiting(task);
 }
 
 void