From 2baf448a8bb8138c736c74ae40cafa4b09491fda Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Apr 2010 09:27:46 +0000 Subject: [PATCH] sanity check fix --- rts/sm/Sanity.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)); -- 1.7.10.4