diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c index bbaa5bf330fb40e22c079b5bcecea27533d3ac56..0f372579b8b77c6f307affe6597099f2c8903588 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); } }