fix bug in migrateThread()

[ghc-hetmet.git] / rts / Threads.c

diff --git a/rts/Threads.c b/rts/Threads.c
index e8a835b..f07b36a 100644 (file)
--- 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);
 }