summaryrefslogtreecommitdiff
path: root/rts/ProfHeap.c
diff options
context:
space:
mode:
authorRavi Nanavati <ravi@bluespec.com>2006-09-29 22:51:15 +0000
committerRavi Nanavati <ravi@bluespec.com>2006-09-29 22:51:15 +0000
commit16871485a44ba8a6e93e40f30af7ea46839e0c4c (patch)
treeb77f3af31ba856f9639a00083a77e5792bb1ee92 /rts/ProfHeap.c
parent138de4239c816531feebc8dcc478995d984276a9 (diff)
downloadhaskell-16871485a44ba8a6e93e40f30af7ea46839e0c4c.tar.gz
rts_ccs_length
Add the -L RTS flag to control the length of the cost-centre stacks reported in a heap profile. Please include this change in the 6.6 branch as well as HEAD
Diffstat (limited to 'rts/ProfHeap.c')
-rw-r--r--rts/ProfHeap.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 2818fb6946..0ee53f3e22 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -806,7 +806,7 @@ dumpCensus( Census *census )
#ifdef PROFILING
switch (RtsFlags.ProfFlags.doHeapProfile) {
case HEAP_BY_CCS:
- fprint_ccs(hp_file, (CostCentreStack *)ctr->identity, 25);
+ fprint_ccs(hp_file, (CostCentreStack *)ctr->identity, RtsFlags.ProfFlags.ccsLength);
break;
case HEAP_BY_MOD:
case HEAP_BY_DESCR: