[commit: ghc] master: rts: detabify/dewhitespace sm/GCAux.c (08093a9)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:31:45 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/08093a94cd4889f98803525ca99aa2b3af57b229/ghc
>---------------------------------------------------------------
commit 08093a94cd4889f98803525ca99aa2b3af57b229
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:20:17 2014 -0500
rts: detabify/dewhitespace sm/GCAux.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
08093a94cd4889f98803525ca99aa2b3af57b229
rts/sm/GCAux.c | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 145ff63..48b18bc 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -54,7 +54,7 @@ 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.
@@ -62,7 +62,7 @@ isAlive(StgClosure *p)
// 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,7 +72,7 @@ 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;
@@ -119,11 +119,11 @@ revertCAFs( void )
for (c = revertible_caf_list;
c != (StgIndStatic *)END_OF_STATIC_LIST;
- c = (StgIndStatic *)c->static_link)
+ 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;
}
@@ -135,15 +135,15 @@ markCAFs (evac_fn evac, void *user)
for (c = dyn_caf_list;
c != (StgIndStatic*)END_OF_STATIC_LIST;
- c = (StgIndStatic *)c->static_link)
+ 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 *)c->static_link)
{
- evac(user, &c->indirectee);
+ evac(user, &c->indirectee);
}
}
More information about the ghc-commits
mailing list