projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update submodules
[ghc-hetmet.git]
/
rts
/
sm
/
GCUtils.c
diff --git
a/rts/sm/GCUtils.c
b/rts/sm/GCUtils.c
index
a544e83
..
ef8d0bd
100644
(file)
--- a/
rts/sm/GCUtils.c
+++ b/
rts/sm/GCUtils.c
@@
-18,6
+18,7
@@
#include "Storage.h"
#include "GC.h"
#include "GCThread.h"
#include "Storage.h"
#include "GC.h"
#include "GCThread.h"
+#include "GCTDecl.h"
#include "GCUtils.h"
#include "Printer.h"
#include "Trace.h"
#include "GCUtils.h"
#include "Printer.h"
#include "Trace.h"
@@
-294,14
+295,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));
}