diff options
author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:19:48 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:19:48 -0500 |
commit | 2f3649e5f4f95fff26f7dbf81d2123db486a7134 (patch) | |
tree | b90137c624de7438eca4dcff9d23efd177a30091 /rts | |
parent | f20708c29426310aab241b6794795429022ea464 (diff) | |
download | haskell-2f3649e5f4f95fff26f7dbf81d2123db486a7134.tar.gz |
rts: detabify/dewhitespace sm/MarkWeak.c
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts')
-rw-r--r-- | rts/sm/MarkWeak.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c index b8ec4532b4..3efb22274f 100644 --- a/rts/sm/MarkWeak.c +++ b/rts/sm/MarkWeak.c @@ -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 * * ---------------------------------------------------------------------------*/ @@ -60,7 +60,7 @@ threads from the all_threads and main thread lists are the weakest of all: a pointers from the finalizer of a dead weak pointer can keep a thread alive. Any threads found to be unreachable - are evacuated and placed on the resurrected_threads list so we + are evacuated and placed on the resurrected_threads list so we can send them a signal later. - weak_stage == WeakDone @@ -102,7 +102,7 @@ initWeakForGC(void) resurrected_threads = END_TSO_QUEUE; } -rtsBool +rtsBool traverseWeakPtrList(void) { rtsBool flag = rtsFalse; @@ -119,7 +119,7 @@ traverseWeakPtrList(void) */ { nat g; - + for (g = 0; g <= N; g++) { tidyThreadList(&generations[g]); } @@ -131,7 +131,7 @@ traverseWeakPtrList(void) flag = rtsTrue; } } - + // if we evacuated anything new, we must scavenge thoroughly // before we can determine which threads are unreachable. if (flag) return rtsTrue; @@ -165,7 +165,7 @@ traverseWeakPtrList(void) flag = rtsTrue; } } - + /* If we didn't make any changes, then we can go round and kill all * the dead weak pointers. The dead_weak_ptr list is used as a list * of pending finalizers later on. @@ -186,7 +186,7 @@ traverseWeakPtrList(void) return rtsTrue; } } - + static void collectDeadWeakPtrs (generation *gen) { StgWeak *w, *next_w; @@ -205,7 +205,7 @@ static rtsBool resurrectUnreachableThreads (generation *gen) for (t = gen->old_threads; t != END_TSO_QUEUE; t = next) { next = t->global_link; - + // ThreadFinished and ThreadComplete: we have to keep // these on the all_threads list until they // become garbage, because they might get @@ -306,16 +306,16 @@ static void tidyThreadList (generation *gen) prev = &gen->old_threads; for (t = gen->old_threads; t != END_TSO_QUEUE; t = next) { - + tmp = (StgTSO *)isAlive((StgClosure *)t); - + if (tmp != NULL) { t = tmp; } - + ASSERT(get_itbl((StgClosure *)t)->type == TSO); next = t->global_link; - + // if the thread is not masking exceptions but there are // pending exceptions on its queue, then something has gone // wrong. However, pending exceptions are OK if there is an @@ -324,16 +324,16 @@ static void tidyThreadList (generation *gen) || t->why_blocked == BlockedOnCCall || t->why_blocked == BlockedOnCCall_Interruptible || (t->flags & TSO_BLOCKEX)); - + if (tmp == NULL) { // not alive (yet): leave this thread on the // old_all_threads list. prev = &(t->global_link); - } + } else { // alive *prev = next; - + // move this thread onto the correct threads list. generation *new_gen; new_gen = Bdescr((P_)t)->gen; |