projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
27a28cf
)
debug output tweaks
author
Simon Marlow
<simonmarhaskell@gmail.com>
Wed, 16 Apr 2008 22:08:07 +0000
(22:08 +0000)
committer
Simon Marlow
<simonmarhaskell@gmail.com>
Wed, 16 Apr 2008 22:08:07 +0000
(22:08 +0000)
rts/sm/GCUtils.c
patch
|
blob
|
history
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;
}