From 7ebf1a69051b1999f74567df6d0d3515539f61e5 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 11 Nov 2008 13:53:44 +0000
Subject: Fix parse error with older gccs (#2752)

---
 rts/STM.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'rts/STM.c')

diff --git a/rts/STM.c b/rts/STM.c
index b5dcc54884..9d93972e94 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;
-- 
cgit v1.2.1