projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use the BF_EVACUATED flag to indicate to-space consistently
[ghc-hetmet.git]
/
rts
/
sm
/
GCUtils.c
diff --git
a/rts/sm/GCUtils.c
b/rts/sm/GCUtils.c
index
7e1aaa1
..
2a31e23
100644
(file)
--- a/
rts/sm/GCUtils.c
+++ b/
rts/sm/GCUtils.c
@@
-205,7
+205,6
@@
StgPtr
alloc_todo_block (step_workspace *ws, nat size)
{
bdescr *bd, *hd, *tl;
alloc_todo_block (step_workspace *ws, nat size)
{
bdescr *bd, *hd, *tl;
- StgWord32 flags;
// Grab a part block if we have one, and it has enough room
if (ws->part_list != NULL &&
// Grab a part block if we have one, and it has enough room
if (ws->part_list != NULL &&
@@
-217,15
+216,8
@@
alloc_todo_block (step_workspace *ws, nat size)
}
else
{
}
else
{
- // blocks in to-space in generations up to and including N
- // get the BF_EVACUATED flag.
- if (ws->step->gen_no <= N) {
- flags = BF_EVACUATED;
- } else {
- flags = 0;
- }
allocBlocks_sync(4, &hd, &tl,
allocBlocks_sync(4, &hd, &tl,
- ws->step->gen_no, ws->step, flags);
+ ws->step->gen_no, ws->step, BF_EVACUATED);
tl->link = ws->part_list;
ws->part_list = hd->link;
tl->link = ws->part_list;
ws->part_list = hd->link;