X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=382ba97fbc849810c2525998640d74b6ace96395;hb=be895313ba42d0bff295a2d4dbc1c5b388a3e760;hp=7c945e0ec3c1dd967d83f4b1ae160cc9686fbed8;hpb=c226846642a2201762ee34f6f71b42f13bc46629;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 7c945e0..382ba97 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1874,9 +1874,9 @@ scheduleThread(Capability *cap, StgTSO *tso)
 void
 scheduleThreadOn(Capability *cap, StgWord cpu USED_IF_THREADS, StgTSO *tso)
 {
-#if defined(THREADED_RTS)
     tso->flags |= TSO_LOCKED; // we requested explicit affinity; don't
 			      // move this thread from now on.
+#if defined(THREADED_RTS)
     cpu %= RtsFlags.ParFlags.nNodes;
     if (cpu == cap->no) {
 	appendToRunQueue(cap,tso);