diff options
| author | simonmar <unknown> | 2001-12-12 15:59:33 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-12-12 15:59:33 +0000 |
| commit | 7738ad979047a82bfa33bbde03bac9000b2a27f9 (patch) | |
| tree | f2d49784872c2834a1910402fd4699429316365b | |
| parent | 57c676e4c3855fce6abd7069b7e9405fe6eadbd0 (diff) | |
| download | haskell-7738ad979047a82bfa33bbde03bac9000b2a27f9.tar.gz | |
[project @ 2001-12-12 15:59:33 by simonmar]
Include the CCS ID in the heap profile, so you can find the full CCS
description in <foo>.prof or the XML profile output.
| -rw-r--r-- | ghc/rts/ProfHeap.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c index 38a9aaa6cc..f9487e9de5 100644 --- a/ghc/rts/ProfHeap.c +++ b/ghc/rts/ProfHeap.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: ProfHeap.c,v 1.34 2001/12/12 15:01:25 simonmar Exp $ + * $Id: ProfHeap.c,v 1.35 2001/12/12 15:59:33 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -489,6 +489,8 @@ fprint_ccs(FILE *fp, CostCentreStack *ccs, nat max_length) return; } + fprintf(fp, "(%d)", ccs->ccsID); + // keep printing components of the stack until we run out of space // in the buffer. If we run out of space, end with "...". for (; ccs != NULL && ccs != CCS_MAIN; ccs = ccs->prevStack) { @@ -748,7 +750,7 @@ dumpCensus( Census *census ) #ifdef PROFILING switch (RtsFlags.ProfFlags.doHeapProfile) { case HEAP_BY_CCS: - fprint_ccs(hp_file, (CostCentreStack *)ctr->identity, 30); + fprint_ccs(hp_file, (CostCentreStack *)ctr->identity, 25); break; case HEAP_BY_MOD: case HEAP_BY_DESCR: |