[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