X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfiling.c;h=96a94e4e2ea308e681390d28a5a826ac96b4ec86;hb=cc4e58b669ea557909bde4307b0cc5fed19de919;hp=0bb975cafc8a0828945b278c1dd557f44a884ebf;hpb=3f10646cfe2c3409056a49d1ef1c4507af522573;p=ghc-hetmet.git

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 0bb975c..96a94e4 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -353,11 +353,12 @@ CostCentreStack *
 PushCostCentre ( CostCentreStack *ccs, CostCentre *cc )
 #define PushCostCentre _PushCostCentre
 {
-  IF_DEBUG(prof, 
-	   debugBelch("Pushing %s on ", cc->label);
-	   debugCCS(ccs);
-	   debugBelch("\n"));
-  return PushCostCentre(ccs,cc);
+    IF_DEBUG(prof,
+	     traceBegin("pushing %s on ", cc->label);
+	     debugCCS(ccs);
+	     traceEnd(););
+	     
+    return PushCostCentre(ccs,cc);
 }
 #endif
 
@@ -881,8 +882,6 @@ gen_XML_logfile( void )
   reportCCS_XML(pruneCCSTree(CCS_MAIN));
 
   fprintf(prof_file, " 0\n");
-
-  fclose(prof_file);
 }
 
 static void