projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the per-generation mutable lists
[ghc-hetmet.git]
/
rts
/
sm
/
GCUtils.c
diff --git
a/rts/sm/GCUtils.c
b/rts/sm/GCUtils.c
index
a544e83
..
8b63674
100644
(file)
--- a/
rts/sm/GCUtils.c
+++ b/
rts/sm/GCUtils.c
@@
-294,14
+294,13
@@
alloc_todo_block (gen_workspace *ws, nat size)
#if DEBUG
void
#if DEBUG
void
-printMutableList(generation *gen)
+printMutableList(bdescr *bd)
{
{
- bdescr *bd;
StgPtr p;
StgPtr p;
- debugBelch("mutable list %p: ", gen->mut_list);
+ debugBelch("mutable list %p: ", bd);
- for (bd = gen->mut_list; bd != NULL; bd = bd->link) {
+ for (; bd != NULL; bd = bd->link) {
for (p = bd->start; p < bd->free; p++) {
debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p));
}
for (p = bd->start; p < bd->free; p++) {
debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p));
}