X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=65eaf8dc04b1b211031a62514d69c1e9ee47ffcf;hb=0c12697ef809ab47dd10b6e292fe42140af72c3f;hp=a9d4a721d37372729cfb7dcca08445938e834cd4;hpb=7aac567ca3c3daae7c738230b1d1b2bdda816b96;p=ghc-hetmet.git

diff --git a/rts/Threads.c b/rts/Threads.c
index a9d4a72..65eaf8d 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -507,14 +507,14 @@ unblockOne_ (Capability *cap, StgTSO *tso,
       appendToRunQueue(cap,tso);
       // we're holding a newly woken thread, make sure we context switch
       // quickly so we can migrate it if necessary.
-      context_switch = 1;
+      cap->context_switch = 1;
   } else {
       // we'll try to wake it up on the Capability it was last on.
       wakeupThreadOnCapability(cap, tso->cap, tso);
   }
 #else
   appendToRunQueue(cap,tso);
-  context_switch = 1;
+  cap->context_switch = 1;
 #endif
 
   debugTrace(DEBUG_sched,