X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FBlockAlloc.c;fp=rts%2Fsm%2FBlockAlloc.c;h=f0f786b105eae14777ab149dadb5eeadd07b7cd6;hb=066d28b97c0c50ba5c2f395e02e2c56b3e562537;hp=8eaba72b723275564501f6395021363a2fd6bc1f;hpb=c53c1c16f47f331e3c1608f66e0b760d140105e6;p=ghc-hetmet.git

diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c
index 8eaba72..f0f786b 100644
--- a/rts/sm/BlockAlloc.c
+++ b/rts/sm/BlockAlloc.c
@@ -697,6 +697,8 @@ void returnMemoryToOS(nat n /* megablocks */)
     }
     free_mblock_list = bd;
 
+    osReleaseFreeMemory();
+
     IF_DEBUG(gc,
         if (n != 0) {
             debugBelch("Wanted to free %d more MBlocks than are freeable\n",