diff options
author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:14:33 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:15:36 -0500 |
commit | b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c (patch) | |
tree | 8c9b98787d566ac7a7c4f3a0fd94916267e782d6 /rts/Weak.c | |
parent | ff4f8448ca844751702482b33ea71f9c4026b6c7 (diff) | |
download | haskell-b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c.tar.gz |
rts: detabify/dewhitespace Weak.c
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/Weak.c')
-rw-r--r-- | rts/Weak.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/rts/Weak.c b/rts/Weak.c index 5ee38cca70..62d4c92466 100644 --- a/rts/Weak.c +++ b/rts/Weak.c @@ -43,7 +43,7 @@ runAllCFinalizers(StgWeak *list) } for (w = list; w; w = w->link) { - runCFinalizers((StgCFinalizerList *)w->cfinalizers); + runCFinalizers((StgCFinalizerList *)w->cfinalizers); } if (task != NULL) { @@ -83,29 +83,29 @@ scheduleFinalizers(Capability *cap, StgWeak *list) // count number of finalizers, and kill all the weak pointers first... n = 0; - for (w = list; w; w = w->link) { - // Better not be a DEAD_WEAK at this stage; the garbage - // collector removes DEAD_WEAKs from the weak pointer list. - ASSERT(w->header.info != &stg_DEAD_WEAK_info); + for (w = list; w; w = w->link) { + // Better not be a DEAD_WEAK at this stage; the garbage + // collector removes DEAD_WEAKs from the weak pointer list. + ASSERT(w->header.info != &stg_DEAD_WEAK_info); - if (w->finalizer != &stg_NO_FINALIZER_closure) { - n++; - } + if (w->finalizer != &stg_NO_FINALIZER_closure) { + n++; + } - runCFinalizers((StgCFinalizerList *)w->cfinalizers); + runCFinalizers((StgCFinalizerList *)w->cfinalizers); #ifdef PROFILING // A weak pointer is inherently used, so we do not need to call // LDV_recordDead(). - // + // // Furthermore, when PROFILING is turned on, dead weak // pointers are exactly as large as weak pointers, so there is // no need to fill the slop, either. See stg_DEAD_WEAK_info // in StgMiscClosures.hc. #endif - SET_HDR(w, &stg_DEAD_WEAK_info, w->header.prof.ccs); + SET_HDR(w, &stg_DEAD_WEAK_info, w->header.prof.ccs); } - + if (task != NULL) { task->running_finalizers = rtsFalse; } @@ -124,24 +124,24 @@ scheduleFinalizers(Capability *cap, StgWeak *list) n = 0; for (w = list; w; w = w->link) { - if (w->finalizer != &stg_NO_FINALIZER_closure) { - arr->payload[n] = w->finalizer; - n++; - } + if (w->finalizer != &stg_NO_FINALIZER_closure) { + arr->payload[n] = w->finalizer; + n++; + } } // set all the cards to 1 for (i = n; i < size; i++) { arr->payload[i] = (StgClosure *)(W_)(-1); } - t = createIOThread(cap, - RtsFlags.GcFlags.initialStkSize, - rts_apply(cap, - rts_apply(cap, - (StgClosure *)runFinalizerBatch_closure, - rts_mkInt(cap,n)), - (StgClosure *)arr) - ); + t = createIOThread(cap, + RtsFlags.GcFlags.initialStkSize, + rts_apply(cap, + rts_apply(cap, + (StgClosure *)runFinalizerBatch_closure, + rts_mkInt(cap,n)), + (StgClosure *)arr) + ); scheduleThread(cap,t); } |