[commit: ghc] ghc-lwc: Fixing upcall thread to capability (225ea0f)

[Sivaramakrishnan Krishnamoorthy Chandrasekaran]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-lwc

http://hackage.haskell.org/trac/ghc/changeset/225ea0f79c22b614adcc74233a94f6673f62e090

>---------------------------------------------------------------

commit 225ea0f79c22b614adcc74233a94f6673f62e090
Author: kc <chandras at cs.purdue.edu>
Date:   Wed May 9 16:34:48 2012 -0400

    Fixing upcall thread to capability

>---------------------------------------------------------------

 rts/Schedule.c |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 4129333..f21167e 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -835,6 +835,7 @@ schedulePushWork(Capability *cap USED_IF_THREADS,
                 next = t->_link;
                 t->_link = END_TSO_QUEUE;
                 if (t->bound == task->incall // don't move my bound thread
+                    || t->is_upcall_thread // don't move upcall thread
                     || tsoLocked(t)) {  // don't move a locked thread
                     setTSOLink(cap, prev, t);
                     setTSOPrev(cap, t, prev);