[commit: ghc] master: rts: detabify/dewhitespace Weak.c (b4c7bcd)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:31:18 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c/ghc
>---------------------------------------------------------------
commit b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:14:33 2014 -0500
rts: detabify/dewhitespace Weak.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c
rts/Weak.c | 42 +++++++++++++++++++++---------------------
1 file changed, 21 insertions(+), 21 deletions(-)
diff --git a/rts/Weak.c b/rts/Weak.c
index 5ee38cc..62d4c92 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) {
@@ -84,26 +84,26 @@ 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);
+ // 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) {
@@ -124,10 +124,10 @@ 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++) {
@@ -135,13 +135,13 @@ scheduleFinalizers(Capability *cap, StgWeak *list)
}
t = createIOThread(cap,
- RtsFlags.GcFlags.initialStkSize,
- rts_apply(cap,
- rts_apply(cap,
- (StgClosure *)runFinalizerBatch_closure,
- rts_mkInt(cap,n)),
- (StgClosure *)arr)
- );
+ RtsFlags.GcFlags.initialStkSize,
+ rts_apply(cap,
+ rts_apply(cap,
+ (StgClosure *)runFinalizerBatch_closure,
+ rts_mkInt(cap,n)),
+ (StgClosure *)arr)
+ );
scheduleThread(cap,t);
}
More information about the ghc-commits
mailing list