From: Ian Lynagh <igloo@earth.li>
Date: Sat, 8 Jul 2006 15:24:24 +0000 (+0000)
Subject: #807: Removed double fclose of prof_file
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=835a1c84ed6817455b0b76aafac4ac69a4b6d5c2

#807: Removed double fclose of prof_file
prof_file was being fclose'd in both gen_XML_logfile and hs_exit, leading
to glibc complaining of a double free.
---

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 33301a9..96a94e4 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -882,8 +882,6 @@ gen_XML_logfile( void )
   reportCCS_XML(pruneCCSTree(CCS_MAIN));
 
   fprintf(prof_file, " 0\n");
-
-  fclose(prof_file);
 }
 
 static void