From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 7 Apr 2010 09:27:46 +0000 (+0000)
Subject: sanity check fix
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2baf448a8bb8138c736c74ae40cafa4b09491fda

sanity check fix
---

diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c
index a2cdfc0..44af592 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -531,7 +531,9 @@ checkTSO(StgTSO *tso)
       return;
     }
 
-    ASSERT(tso->_link == END_TSO_QUEUE || get_itbl(tso->_link)->type == TSO);
+    ASSERT(tso->_link == END_TSO_QUEUE || 
+           tso->_link->header.info == &stg_MVAR_TSO_QUEUE_info ||
+           tso->_link->header.info == &stg_TSO_info);
     ASSERT(LOOKS_LIKE_CLOSURE_PTR(tso->block_info.closure));
     ASSERT(LOOKS_LIKE_CLOSURE_PTR(tso->bq));
     ASSERT(LOOKS_LIKE_CLOSURE_PTR(tso->blocked_exceptions));