X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=inline;f=rts%2Fsm%2FStorage.c;h=6e862f225b6c407a108ab339cd0298869daad040;hb=c3e1f7be52fbe5d13a7ee733b99ef6e73762e5ab;hp=1d08a85ae25bfc1e3ec3f85bcd9644a6f5300445;hpb=485b8d1a00a65aa565e3b30ef8f63fa2880d4093;p=ghc-hetmet.git

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 1d08a85..6e862f2 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -287,6 +287,7 @@ freeStorage (void)
 #if defined(THREADED_RTS)
     closeMutex(&sm_mutex);
     closeMutex(&atomic_modify_mutvar_mutex);
+    stgFree(nurseries);
 #endif
 }