X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfiling.c;h=4e759b6942a85ba7d618d3ebc01e89e4859a71bb;hb=4c6a3f787abcaed009a574196d82237d9ae64fc8;hp=a8650788e95df0480f0f89b90fa449f323ae0f8e;hpb=1cb0eb071f1316d6650f354166506789a2638720;p=ghc-hetmet.git

diff --git a/rts/Profiling.c b/rts/Profiling.c
index a865078..4e759b6 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -186,6 +186,12 @@ initProfiling1 (void)
 }
 
 void
+freeProfiling1 (void)
+{
+    arenaFree(prof_arena);
+}
+
+void
 initProfiling2 (void)
 {
   CostCentreStack *ccs, *next;