Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5e5d2bae42699f22ca81e0c1a74aa29825f96535 >--------------------------------------------------------------- commit 5e5d2bae42699f22ca81e0c1a74aa29825f96535 Author: Simon Marlow <[email protected]> Date: Fri Nov 18 17:05:44 2011 +0000 Fix bug in the handling of TSOs in the compacting GC (#5644) >--------------------------------------------------------------- rts/sm/Compact.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 1b57c53..4f71026 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -474,7 +474,8 @@ thread_TSO (StgTSO *tso) if ( tso->why_blocked == BlockedOnMVar || tso->why_blocked == BlockedOnBlackHole || tso->why_blocked == BlockedOnMsgThrowTo - ) { + || tso->why_blocked == NotBlocked + ) { thread_(&tso->block_info.closure); } thread_(&tso->blocked_exceptions); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
