summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
bfc15d8)
Don't forget about the "MANY" retainer set when dumping a retainer profile.
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.27 2001/11/26 16:54:21 simonmar Exp $
+ * $Id: ProfHeap.c,v 1.28 2001/11/27 15:30:06 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
*
* (c) The GHC Team, 1998-2000
*
{
RetainerSet *rs = (RetainerSet *)ctr->identity;
{
RetainerSet *rs = (RetainerSet *)ctr->identity;
+ // it might be the distinguished retainer set rs_MANY:
+ if (rs == &rs_MANY) {
+ fprintf(hp_file, "MANY");
+ break;
+ }
+
// Mark this retainer set by negating its id, because it
// has appeared in at least one census. We print the
// values of all such retainer sets into the log file at
// Mark this retainer set by negating its id, because it
// has appeared in at least one census. We print the
// values of all such retainer sets into the log file at