diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 10:58:40 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-01 10:58:40 +0000 |
| commit | 20fcaaba537c370bc7ccefaf5e21453ac09664b6 (patch) | |
| tree | bf15011213a5aa45855c75773cffc28a63030fd9 /rts/Threads.c | |
| parent | 70a2431f90fa932733ce015714ef7848640ed48f (diff) | |
| download | haskell-20fcaaba537c370bc7ccefaf5e21453ac09664b6.tar.gz | |
fix bug in migrateThread()
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index e8a835bdae..f07b36a0fb 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); } |