projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generalized assignment rewriting pass.
[ghc-hetmet.git]
/
rts
/
ProfHeap.c
diff --git
a/rts/ProfHeap.c
b/rts/ProfHeap.c
index
9bd707f
..
7d2a450
100644
(file)
--- a/
rts/ProfHeap.c
+++ b/
rts/ProfHeap.c
@@
-18,6
+18,7
@@
#include "LdvProfile.h"
#include "Arena.h"
#include "Printer.h"
#include "LdvProfile.h"
#include "Arena.h"
#include "Printer.h"
+#include "sm/GCThread.h"
#include <string.h>
#include <string.h>
@@
-1057,8
+1058,9
@@
heapCensusChain( Census *census, bdescr *bd )
void
heapCensus( void )
{
void
heapCensus( void )
{
- nat g;
+ nat g, n;
Census *census;
Census *census;
+ gen_workspace *ws;
census = &censuses[era];
census->time = mut_user_time();
census = &censuses[era];
census->time = mut_user_time();
@@
-1080,6
+1082,13
@@
heapCensus( void )
// Are we interested in large objects? might be
// confusing to include the stack in a heap profile.
heapCensusChain( census, generations[g].large_objects );
// Are we interested in large objects? might be
// confusing to include the stack in a heap profile.
heapCensusChain( census, generations[g].large_objects );
+
+ for (n = 0; n < n_capabilities; n++) {
+ ws = &gc_threads[n]->gens[g];
+ heapCensusChain(census, ws->todo_bd);
+ heapCensusChain(census, ws->part_list);
+ heapCensusChain(census, ws->scavd_list);
+ }
}
// dump out the census info
}
// dump out the census info