projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debug output tweaks
[ghc-hetmet.git]
/
rts
/
sm
/
GCUtils.c
diff --git
a/rts/sm/GCUtils.c
b/rts/sm/GCUtils.c
index
184b540
..
0e20c46
100644
(file)
--- a/
rts/sm/GCUtils.c
+++ b/
rts/sm/GCUtils.c
@@
-124,9
+124,9
@@
todo_block_full (nat size, step_workspace *ws)
if (ws->step->todos != NULL ||
(bd->free - bd->u.scan < WORK_UNIT_WORDS / 2)) {
if (bd->free + size < bd->start + BLOCK_SIZE_W) {
if (ws->step->todos != NULL ||
(bd->free - bd->u.scan < WORK_UNIT_WORDS / 2)) {
if (bd->free + size < bd->start + BLOCK_SIZE_W) {
- debugTrace(DEBUG_gc, "increasing limit for %p", bd->start);
ws->todo_lim = stg_min(bd->start + BLOCK_SIZE_W,
ws->todo_lim + stg_max(WORK_UNIT_WORDS,size));
ws->todo_lim = stg_min(bd->start + BLOCK_SIZE_W,
ws->todo_lim + stg_max(WORK_UNIT_WORDS,size));
+ debugTrace(DEBUG_gc, "increasing limit for %p to %p", bd->start, ws->todo_lim);
return ws->todo_free;
}
}
return ws->todo_free;
}
}
@@
-213,7
+213,7
@@
alloc_todo_block (step_workspace *ws, nat size)
bd->free + stg_max(WORK_UNIT_WORDS,size));
debugTrace(DEBUG_gc, "alloc new todo block %p for step %d",
bd->free + stg_max(WORK_UNIT_WORDS,size));
debugTrace(DEBUG_gc, "alloc new todo block %p for step %d",
- bd->start, ws->step->abs_no);
+ bd->free, ws->step->abs_no);
return ws->todo_free;
}
return ws->todo_free;
}