[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(¤tTaskKey);
+ newThreadLocalKey(¤tTaskKey);
#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