Commit 39f2878c authored by Daniel Gröber (dxld)'s avatar Daniel Gröber (dxld)

rts: retainer: Move actual 'flip' bit flip to generic traversal code

parent fd213d17
......@@ -1450,6 +1450,9 @@ traverseWorkStack(traverseState *ts, visitClosure_cb visit_cb)
stackData data, child_data;
StgWord typeOfc;
// Now we flip the flip bit.
flip = flip ^ 1;
// c = Current closure (possibly tagged)
// cp = Current closure's Parent (NOT tagged)
// data = current closures' associated data (NOT tagged)
......@@ -1696,6 +1699,8 @@ computeRetainerSet( traverseState *ts )
// Remember old stable name addresses.
rememberOldStableNameAddresses ();
// TODO: Move this code to traverseWorkStack
// The following code resets the rs field of each unvisited mutable
// object.
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
......@@ -1796,9 +1801,6 @@ retainerProfile(void)
{
stat_startRP();
// Now we flips flip.
flip = flip ^ 1;
numObjectVisited = 0;
timesAnyObjectVisited = 0;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment