X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSTM.c;h=9d93972e94d057ece5407151d87428e5a03bb444;hb=77b7c34fa24860c91f56250defa91b2d1a7a1c00;hp=b5dcc54884bac1368682ce1ca1a552d94adc3f49;hpb=a970a3775856642e6d3690b5421e7dcb3e420d36;p=ghc-hetmet.git

diff --git a/rts/STM.c b/rts/STM.c
index b5dcc54..9d93972 100644
--- a/rts/STM.c
+++ b/rts/STM.c
@@ -388,8 +388,8 @@ static void unpark_tso(Capability *cap, StgTSO *tso) {
 
 static void unpark_waiters_on(Capability *cap, StgTVar *s) {
   StgTVarWatchQueue *q;
-  TRACE("unpark_waiters_on tvar=%p", s);
   StgTVarWatchQueue *trail;
+  TRACE("unpark_waiters_on tvar=%p", s);
   // unblock TSOs in reverse order, to be a bit fairer (#2319)
   for (q = s -> first_watch_queue_entry, trail = q;
        q != END_STM_WATCH_QUEUE;