[commit: ghc] master: rts: delint Messages.c (1c89c96)
git at git.haskell.org
git at git.haskell.org
Mon Jul 28 14:36:17 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/1c89c96bd5118d14c003128839b8b67c4c6d90f1/ghc
>---------------------------------------------------------------
commit 1c89c96bd5118d14c003128839b8b67c4c6d90f1
Author: Austin Seipp <austin at well-typed.com>
Date: Mon Jul 21 20:29:03 2014 -0500
rts: delint Messages.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
1c89c96bd5118d14c003128839b8b67c4c6d90f1
rts/Messages.c | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/rts/Messages.c b/rts/Messages.c
index 82d8699..5a67bf3 100644
--- a/rts/Messages.c
+++ b/rts/Messages.c
@@ -166,8 +166,8 @@ nat messageBlackHole(Capability *cap, MessageBlackHole *msg)
StgClosure *bh = UNTAG_CLOSURE(msg->bh);
StgTSO *owner;
- debugTraceCap(DEBUG_sched, cap, "message: thread %d blocking on blackhole %p",
- (W_)msg->tso->id, msg->bh);
+ debugTraceCap(DEBUG_sched, cap, "message: thread %d blocking on "
+ "blackhole %p", (W_)msg->tso->id, msg->bh);
info = bh->header.info;
@@ -210,7 +210,8 @@ loop:
#ifdef THREADED_RTS
if (owner->cap != cap) {
sendMessage(cap, owner->cap, (Message*)msg);
- debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d", owner->cap->no);
+ debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d",
+ owner->cap->no);
return 1;
}
#endif
@@ -273,7 +274,8 @@ loop:
#ifdef THREADED_RTS
if (owner->cap != cap) {
sendMessage(cap, owner->cap, (Message*)msg);
- debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d", owner->cap->no);
+ debugTraceCap(DEBUG_sched, cap, "forwarding message to cap %d",
+ owner->cap->no);
return 1;
}
#endif
More information about the ghc-commits
mailing list