/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.6 2000/03/08 17:48:24 simonmar Exp $
+ * $Id: ProfHeap.c,v 1.7 2000/03/23 13:13:29 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
ccs->mem_resid = 0;
for (i = ccs->indexTable; i != 0; i = i->next) {
- clearCCSResid(i->ccs);
+ if (!i->back_edge) {
+ clearCCSResid(i->ccs);
+ }
}
}
}
for (i = ccs->indexTable; i != 0; i = i->next) {
- reportCCSResid(fp,i->ccs);
+ if (!i->back_edge) {
+ reportCCSResid(fp,i->ccs);
+ }
}
}
#endif