From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 1 Apr 2010 10:58:40 +0000 (+0000)
Subject: fix bug in migrateThread()
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=20fcaaba537c370bc7ccefaf5e21453ac09664b6

fix bug in migrateThread()
---

diff --git a/rts/Threads.c b/rts/Threads.c
index e8a835b..f07b36a 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -291,7 +291,7 @@ migrateThread (Capability *from, StgTSO *tso, Capability *to)
     traceEventMigrateThread (from, tso, to->no);
     // ThreadMigrating tells the target cap that it needs to be added to
     // the run queue when it receives the MSG_TRY_WAKEUP.
-    tso->what_next = ThreadMigrating;
+    tso->why_blocked = ThreadMigrating;
     tso->cap = to;
     tryWakeupThread(from, tso);
 }