projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comments only
[ghc-hetmet.git]
/
rts
/
Stats.c
diff --git
a/rts/Stats.c
b/rts/Stats.c
index
ec8d583
..
aabe259
100644
(file)
--- a/
rts/Stats.c
+++ b/
rts/Stats.c
@@
-10,11
+10,11
@@
#include "RtsFlags.h"
#include "RtsUtils.h"
#include "MBlock.h"
#include "RtsFlags.h"
#include "RtsUtils.h"
#include "MBlock.h"
+#include "Storage.h"
#include "Schedule.h"
#include "Stats.h"
#include "ParTicky.h" /* ToDo: move into Rts.h */
#include "Profiling.h"
#include "Schedule.h"
#include "Stats.h"
#include "ParTicky.h" /* ToDo: move into Rts.h */
#include "Profiling.h"
-#include "Storage.h"
#include "GetTime.h"
/* huh? */
#include "GetTime.h"
/* huh? */
@@
-537,6
+537,9
@@
stat_exit(int alloc)
statsFlush();
statsClose();
}
statsFlush();
statsClose();
}
+ if (GC_coll_times)
+ stgFree(GC_coll_times);
+ GC_coll_times = NULL;
}
/* -----------------------------------------------------------------------------
}
/* -----------------------------------------------------------------------------
@@
-554,13
+557,13
@@
statDescribeGens(void)
step *step;
debugBelch(
step *step;
debugBelch(
-" Gen Steps Max Mutable Step Blocks Live Large\n"
-" Blocks Closures Objects\n");
+" Gen Steps Max Mut-list Step Blocks Live Large\n"
+" Blocks Bytes Objects\n");
mut = 0;
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
mut = 0;
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
- mut += bd->free - bd->start;
+ mut += (bd->free - bd->start) * sizeof(W_);
}
debugBelch("%8d %8d %8d %9d", g, generations[g].n_steps,
}
debugBelch("%8d %8d %8d %9d", g, generations[g].n_steps,