exitScheduler: move boundTaskExiting call outside #ifdef THREADED_RTS
authorSimon Marlow <marlowsd@gmail.com>
Tue, 1 Dec 2009 11:33:52 +0000 (11:33 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 1 Dec 2009 11:33:52 +0000 (11:33 +0000)
Fixes a little leaked memory at shutdown in non-threaded RTS

rts/Schedule.c

index c377974..bb36f9b 100644 (file)
@@ -2100,9 +2100,10 @@ exitScheduler(
        for (i = 0; i < n_capabilities; i++) {
            shutdownCapability(&capabilities[i], task, wait_foreign);
        }
-       boundTaskExiting(task);
     }
 #endif
+
+    boundTaskExiting(task);
 }
 
 void