From: panne <unknown>
Date: Sat, 8 Jul 2000 17:04:17 +0000 (+0000)
Subject: [project @ 2000-07-08 17:04:17 by panne]
X-Git-Tag: Approximately_9120_patches~4057
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=46ed752ac30f1d1a479ec50f40fcc73889dae95b;p=ghc-hetmet.git

[project @ 2000-07-08 17:04:17 by panne]
Synch format string with actual args
---

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index bbaa5bf..0f37257 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.14 2000/06/12 16:01:02 simonmar Exp $
+ * $Id: ProfHeap.c,v 1.15 2000/07/08 17:04:17 panne Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -412,7 +412,7 @@ fprint_ccs(FILE *fp, CostCentreStack *ccs, nat components)
 
   } else {
     fprint_ccs(fp, ccs->prevStack,components-1);
-    fprintf(fp,"/%s",cc->label,ccs->ccsID);
+    fprintf(fp,"%s/%s",cc->label,ccs->ccsID);
   }
 }