projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8b6c160
)
Fix profiling output; spotted by jlouis
author
Ian Lynagh
<igloo@earth.li>
Tue, 25 May 2010 11:12:17 +0000
(11:12 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 25 May 2010 11:12:17 +0000
(11:12 +0000)
We were outputing the number of words allocated in a column titled "bytes".
rts/Profiling.c
patch
|
blob
|
history
diff --git
a/rts/Profiling.c
b/rts/Profiling.c
index
581bf06
..
6d23bc2
100644
(file)
--- 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");
}