From caea0cb904c1a1248e25afb5585c757e95abb987 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 9 Jul 2000 16:17:10 +0000
Subject: [PATCH] [project @ 2000-07-09 16:17:10 by panne] Third attempt by two
people trying to get a simple fprintf right again... :-}
---
ghc/rts/ProfHeap.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 0f372579b8b7..82857f965de7 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.15 2000/07/08 17:04:17 panne Exp $
+ * $Id: ProfHeap.c,v 1.16 2000/07/09 16:17:10 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/%s",cc->label,ccs->ccsID);
+ fprintf(fp,"/%s",cc->label);
}
}
--
GitLab