diff options
author | Ian Lynagh <igloo@earth.li> | 2011-05-06 15:28:53 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-05-07 17:31:21 +0100 |
commit | d5adcc5d95a11812f6a4f45316aa4fbdc5da390e (patch) | |
tree | 23493dbf6c15c57ec93f2fe4a50d2f9ba954109f /rts/ProfHeap.c | |
parent | 77c4f11e6180089e559572960d40ffd93c306f9a (diff) | |
download | haskell-d5adcc5d95a11812f6a4f45316aa4fbdc5da390e.tar.gz |
Make retainer profiling use the label length (-L) flag)
Diffstat (limited to 'rts/ProfHeap.c')
-rw-r--r-- | rts/ProfHeap.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index f7fbd321be..9bd707fb2a 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -812,7 +812,7 @@ dumpCensus( Census *census ) rs->id = -(rs->id); // report in the unit of bytes: * sizeof(StgWord) - printRetainerSetShort(hp_file, rs); + printRetainerSetShort(hp_file, rs, RtsFlags.ProfFlags.ccsLength); break; } default: |