projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-03-23 13:13:29 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
ProfHeap.c
diff --git
a/ghc/rts/ProfHeap.c
b/ghc/rts/ProfHeap.c
index
ba10ad0
..
5028249
100644
(file)
--- a/
ghc/rts/ProfHeap.c
+++ b/
ghc/rts/ProfHeap.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $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
*
*
* (c) The GHC Team, 1998-2000
*
@@
-270,7
+270,9
@@
clearCCSResid(CostCentreStack *ccs)
ccs->mem_resid = 0;
for (i = ccs->indexTable; i != 0; i = i->next) {
ccs->mem_resid = 0;
for (i = ccs->indexTable; i != 0; i = i->next) {
- clearCCSResid(i->ccs);
+ if (!i->back_edge) {
+ clearCCSResid(i->ccs);
+ }
}
}
}
}
@@
-307,7
+309,9
@@
reportCCSResid(FILE *fp, CostCentreStack *ccs)
}
for (i = ccs->indexTable; i != 0; i = i->next) {
}
for (i = ccs->indexTable; i != 0; i = i->next) {
- reportCCSResid(fp,i->ccs);
+ if (!i->back_edge) {
+ reportCCSResid(fp,i->ccs);
+ }
}
}
#endif
}
}
#endif