projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-10-27 08:00:03 by simonmar]
[ghc-hetmet.git]
/
ghc
/
rts
/
GCCompact.c
diff --git
a/ghc/rts/GCCompact.c
b/ghc/rts/GCCompact.c
index
ad7638d
..
775aa75
100644
(file)
--- a/
ghc/rts/GCCompact.c
+++ b/
ghc/rts/GCCompact.c
@@
-917,7
+917,6
@@
update_bkwd_compact( step *stp )
freeChain(free_bd->link);
free_bd->link = NULL;
}
freeChain(free_bd->link);
free_bd->link = NULL;
}
- stp->n_old_blocks = free_blocks;
return free_blocks;
}
return free_blocks;
}
@@
-956,11
+955,13
@@
compact( void (*get_roots)(evac_fn) )
// any threads resurrected during this GC
thread((StgPtr)&resurrected_threads);
// any threads resurrected during this GC
thread((StgPtr)&resurrected_threads);
- // the main threads list
+ // the task list
{
{
- StgMainThread *m;
- for (m = main_threads; m != NULL; m = m->link) {
- thread((StgPtr)&m->tso);
+ Task *task;
+ for (task = all_tasks; task != NULL; task = task->all_link) {
+ if (task->tso) {
+ thread((StgPtr)&task->tso);
+ }
}
}
}
}