Commit 7e607875 authored by Austin Seipp's avatar Austin Seipp

rts: detabify/dewhitespace sm/GCUtils.h

Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 08093a94
......@@ -6,7 +6,7 @@
*
* Documentation on the architecture of the Garbage Collector can be
* found in the online commentary:
*
*
* http://ghc.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
*
* --------------------------------------------------------------------------*/
......@@ -54,11 +54,11 @@ recordMutableGen_GC (StgClosure *p, nat gen_no)
bd = gct->mut_lists[gen_no];
if (bd->free >= bd->start + BLOCK_SIZE_W) {
bdescr *new_bd;
new_bd = allocBlock_sync();
new_bd->link = bd;
bd = new_bd;
gct->mut_lists[gen_no] = bd;
bdescr *new_bd;
new_bd = allocBlock_sync();
new_bd->link = bd;
bd = new_bd;
gct->mut_lists[gen_no] = bd;
}
*bd->free++ = (StgWord)p;
}
......
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