[commit: ghc] master: rts: detabify/dewhitespace Task.c (4cbf966)

git at git.haskell.org git at git.haskell.org
Wed Aug 20 17:31:35 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4cbf96680948de003e5da01cc053be6e672e2490/ghc

>---------------------------------------------------------------

commit 4cbf96680948de003e5da01cc053be6e672e2490
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Aug 20 12:17:50 2014 -0500

    rts: detabify/dewhitespace Task.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

4cbf96680948de003e5da01cc053be6e672e2490
 rts/Task.c | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/rts/Task.c b/rts/Task.c
index 0421d8b..7e4c040 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -73,7 +73,7 @@ initTaskManager (void)
         tasksInitialized = 1;
 #if defined(THREADED_RTS)
 #if !defined(MYTASK_USE_TLV)
-	newThreadLocalKey(&currentTaskKey);
+        newThreadLocalKey(&currentTaskKey);
 #endif
         initMutex(&all_tasks_mutex);
 #endif
@@ -497,20 +497,20 @@ printAllTasks(void)
 {
     Task *task;
     for (task = all_tasks; task != NULL; task = task->all_next) {
-	debugBelch("task %#" FMT_HexWord64 " is %s, ", serialisableTaskId(task),
+        debugBelch("task %#" FMT_HexWord64 " is %s, ", serialisableTaskId(task),
                    task->stopped ? "stopped" : "alive");
-	if (!task->stopped) {
-	    if (task->cap) {
-		debugBelch("on capability %d, ", task->cap->no);
-	    }
-	    if (task->incall->tso) {
-	      debugBelch("bound to thread %lu",
+        if (!task->stopped) {
+            if (task->cap) {
+                debugBelch("on capability %d, ", task->cap->no);
+            }
+            if (task->incall->tso) {
+              debugBelch("bound to thread %lu",
                          (unsigned long)task->incall->tso->id);
-	    } else {
-		debugBelch("worker");
-	    }
-	}
-	debugBelch("\n");
+            } else {
+                debugBelch("worker");
+            }
+        }
+        debugBelch("\n");
     }
 }
 



More information about the ghc-commits mailing list