[commit: ghc] master: fix bug in previous commit, 65e46f144f3d8b18de7264b0b099086153c68d6c (97dc57c)

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/97dc57c6e2bdbddd0a0170a283149a570a07179c

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

commit 97dc57c6e2bdbddd0a0170a283149a570a07179c
Author: Simon Marlow <[email protected]>
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 ||