[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