From: panne <unknown>
Date: Fri, 19 Mar 2004 23:20:20 +0000 (+0000)
Subject: [project @ 2004-03-19 23:20:20 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~1950
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9b5e08861ad487e9221cb987d9c3f413399b5d37;p=ghc-hetmet.git

[project @ 2004-03-19 23:20:20 by panne]
Fixed  the JOB line in heap  profiles, it contained superfluous spaces
and an evil line break.

Merge to STABLE
(This fix looks quite right, but again, I leave this to the Master of
Releases (tm), because there might already be tools depending on the
slightly wrong old format.)
---

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 837591b..1f0156c 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.50 2003/11/12 17:49:08 sof Exp $
+ * $Id: ProfHeap.c,v 1.51 2004/03/19 23:20:20 panne Exp $
  *
  * (c) The GHC Team, 1998-2003
  *
@@ -430,10 +430,9 @@ initHeapProfiling(void)
 	int count;
 	for(count = 1; count < prog_argc; count++)
 	    fprintf(hp_file, " %s", prog_argv[count]);
-	fprintf(hp_file, " +RTS ");
+	fprintf(hp_file, " +RTS");
 	for(count = 0; count < rts_argc; count++)
-	    fprintf(hp_file, "%s ", rts_argv[count]);
-	fprintf(hp_file, "\n");
+	    fprintf(hp_file, " %s", rts_argv[count]);
     }
 #endif /* PROFILING */