projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix -fwarn-missing-import-lists (fix Trac #4489)
[ghc-hetmet.git]
/
rts
/
Profiling.c
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,
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");
}
}
fprintf(prof_file, "\n");
}