X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FProfHeap.c;h=0ee53f3e221f37bd6efd55456291b695780e5bee;hp=2818fb694646f674451dd5ce1819c48db84b7c4d;hb=16871485a44ba8a6e93e40f30af7ea46839e0c4c;hpb=138de4239c816531feebc8dcc478995d984276a9

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 2818fb6..0ee53f3 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: