[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