From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 11 Nov 2008 13:53:44 +0000 (+0000)
Subject: Fix parse error with older gccs (#2752)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7ebf1a69051b1999f74567df6d0d3515539f61e5

Fix parse error with older gccs (#2752)
---

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;