Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/97dc57c6e2bdbddd0a0170a283149a570a07179c >--------------------------------------------------------------- commit 97dc57c6e2bdbddd0a0170a283149a570a07179c Author: Simon Marlow <marlo...@gmail.com> Date: Wed Nov 14 10:12:56 2012 +0000 fix bug in previous commit, 65e46f144f3d8b18de7264b0b099086153c68d6c >--------------------------------------------------------------- rts/sm/Sanity.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index a760e57..fb6a857 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -510,7 +510,7 @@ checkTSO(StgTSO *tso) } next = tso->_link; - info = (const StgInfoTable*) tso->header.info; + info = (const StgInfoTable*) tso->_link->header.info; ASSERT(next == END_TSO_QUEUE || info == &stg_MVAR_TSO_QUEUE_info || _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
