#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 (file)
--- 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