Commit 08093a94 authored by Austin Seipp's avatar Austin Seipp

rts: detabify/dewhitespace sm/GCAux.c

Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 2f3649e5
......@@ -2,7 +2,7 @@
*
* (c) The GHC Team 1998-2008
*
* Functions called from outside the GC need to be separate from GC.c,
* Functions called from outside the GC need to be separate from GC.c,
* because GC.c is compiled with register variable(s).
*
* ---------------------------------------------------------------------------*/
......@@ -43,7 +43,7 @@ isAlive(StgClosure *p)
ASSERT(LOOKS_LIKE_CLOSURE_PTR(q));
// ignore static closures
// ignore static closures
//
// ToDo: This means we never look through IND_STATIC, which means
// isRetainer needs to handle the IND_STATIC case rather than
......@@ -54,15 +54,15 @@ isAlive(StgClosure *p)
// for static closures with an empty SRT or CONSTR_STATIC_NOCAFs.
//
if (!HEAP_ALLOCED_GC(q)) {
return p;
return p;
}
// ignore closures in generations that we're not collecting.
// ignore closures in generations that we're not collecting.
bd = Bdescr((P_)q);
// if it's a pointer into to-space, then we're done
if (bd->flags & BF_EVACUATED) {
return p;
return p;
}
// large objects use the evacuated flag
......@@ -72,13 +72,13 @@ isAlive(StgClosure *p)
// check the mark bit for compacted steps
if ((bd->flags & BF_MARKED) && is_marked((P_)q,bd)) {
return p;
return p;
}
info = q->header.info;
if (IS_FORWARDING_PTR(info)) {
// alive!
// alive!
return TAG_CLOSURE(tag,(StgClosure*)UN_FORWARDING_PTR(info));
}
......@@ -89,7 +89,7 @@ isAlive(StgClosure *p)
case IND:
case IND_STATIC:
case IND_PERM:
// follow indirections
// follow indirections
p = ((StgInd *)q)->indirectee;
continue;
......@@ -102,7 +102,7 @@ isAlive(StgClosure *p)
}
default:
// dead.
// dead.
return NULL;
}
}
......@@ -118,12 +118,12 @@ revertCAFs( void )
StgIndStatic *c;
for (c = revertible_caf_list;
c != (StgIndStatic *)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
c != (StgIndStatic *)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
{
SET_INFO((StgClosure *)c, c->saved_info);
c->saved_info = NULL;
// could, but not necessary: c->static_link = NULL;
c->saved_info = NULL;
// could, but not necessary: c->static_link = NULL;
}
revertible_caf_list = (StgIndStatic*)END_OF_STATIC_LIST;
}
......@@ -134,16 +134,16 @@ markCAFs (evac_fn evac, void *user)
StgIndStatic *c;
for (c = dyn_caf_list;
c != (StgIndStatic*)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
c != (StgIndStatic*)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
{
evac(user, &c->indirectee);
evac(user, &c->indirectee);
}
for (c = revertible_caf_list;
c != (StgIndStatic*)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
c != (StgIndStatic*)END_OF_STATIC_LIST;
c = (StgIndStatic *)c->static_link)
{
evac(user, &c->indirectee);
evac(user, &c->indirectee);
}
}
......
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