fix profiling on Win32

[ghc-hetmet.git] / ghc / rts / Storage.c

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 5e00a57..974be45 100644 (file)
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -266,6 +266,11 @@ void
 exitStorage (void)
 {
     stat_exit(calcAllocated());
+}
+
+void
+freeStorage (void)
+{
     freeAllMBlocks();
 }