summaryrefslogtreecommitdiff
path: root/rts/Profiling.c
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2010-05-25 11:12:17 +0000
committerIan Lynagh <igloo@earth.li>2010-05-25 11:12:17 +0000
commit68c1816d93339e48b4907ed3b80e9551c2150a2d (patch)
tree5a7cb75d12966baeae931558ccc3122b3680461c /rts/Profiling.c
parent8b6c1605e75a2482892995c6d0529911796e89dd (diff)
downloadhaskell-68c1816d93339e48b4907ed3b80e9551c2150a2d.tar.gz
Fix profiling output; spotted by jlouis
We were outputing the number of words allocated in a column titled "bytes".
Diffstat (limited to 'rts/Profiling.c')
-rw-r--r--rts/Profiling.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c
index 581bf06b0f..6d23bc2fe2 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -697,7 +697,7 @@ report_per_cc_costs( void )
if (RtsFlags.CcFlags.doCostCentres >= COST_CENTRES_VERBOSE) {
fprintf(prof_file, " %5" FMT_Word64 " %9" FMT_Word64,
- (StgWord64)(cc->time_ticks), cc->mem_alloc);
+ (StgWord64)(cc->time_ticks), cc->mem_alloc*sizeof(W_));
}
fprintf(prof_file, "\n");
}