X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfHeap.c;h=82857f965de7abaab4d9fada889b3dd924d9c15a;hb=e1ecea726f8fb3dc180c8aba8222f6c9e9823c47;hp=39eaa9054b6de9dccff4cad59a1bce91137c1276;hpb=fab146594bcdfb504411c927db7595e07c180e49;p=ghc-hetmet.git

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 39eaa90..82857f9 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.13 2000/05/12 12:48:36 simonmar 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 (%d)",cc->label,ccs->ccsID);
+    fprintf(fp,"/%s",cc->label);
   }
 }