[commit: ghc] master: rts: detabify/dewhitespace sm/GCUtils.c (7318aab)

git at git.haskell.org git at git.haskell.org
Wed Aug 20 17:31:50 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7318aabb2a7cd0fa5f18203b775646329a298028/ghc

>---------------------------------------------------------------

commit 7318aabb2a7cd0fa5f18203b775646329a298028
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Aug 20 12:21:03 2014 -0500

    rts: detabify/dewhitespace sm/GCUtils.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

7318aabb2a7cd0fa5f18203b775646329a298028
 rts/sm/GCUtils.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 078da12..206ffa4 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -98,14 +98,14 @@ grab_local_todo_block (gen_workspace *ws)
         ws->todo_overflow = bd->link;
         bd->link = NULL;
         ws->n_todo_overflow--;
-	return bd;
+        return bd;
     }
 
     bd = popWSDeque(ws->todo_q);
     if (bd != NULL)
     {
-	ASSERT(bd->link == NULL);
-	return bd;
+        ASSERT(bd->link == NULL);
+        return bd;
     }
 
     return NULL;
@@ -336,9 +336,9 @@ printMutableList(bdescr *bd)
     debugBelch("mutable list %p: ", bd);
 
     for (; bd != NULL; bd = bd->link) {
-	for (p = bd->start; p < bd->free; p++) {
-	    debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p));
-	}
+        for (p = bd->start; p < bd->free; p++) {
+            debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p));
+        }
     }
     debugBelch("\n");
 }



More information about the ghc-commits mailing list