summaryrefslogtreecommitdiff
path: root/rts/Weak.c
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2014-08-20 12:14:33 -0500
committerAustin Seipp <austin@well-typed.com>2014-08-20 12:15:36 -0500
commitb4c7bcd5f65809851bd5e4085206ae1f7f27aa5c (patch)
tree8c9b98787d566ac7a7c4f3a0fd94916267e782d6 /rts/Weak.c
parentff4f8448ca844751702482b33ea71f9c4026b6c7 (diff)
downloadhaskell-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.c48
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);
}