Correct spelling mistake: GhcState1HcOpts -> GhcStage1HcOpts

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

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 4933854..974be45 100644 (file)
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -268,6 +268,12 @@ exitStorage (void)
     stat_exit(calcAllocated());
 }
 
+void
+freeStorage (void)
+{
+    freeAllMBlocks();
+}
+
 /* -----------------------------------------------------------------------------
    CAF management.