fix bug in previous commit, 65e46f144f3d8b18de7264b0b099086153c68d6c
authorSimon Marlow <marlowsd@gmail.com>
Wed, 14 Nov 2012 10:12:56 +0000 (10:12 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 16 Nov 2012 11:26:19 +0000 (11:26 +0000)
rts/sm/Sanity.c

index a760e57..fb6a857 100644 (file)
@@ -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 ||