diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:27:46 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:27:46 +0000 |
| commit | 2baf448a8bb8138c736c74ae40cafa4b09491fda (patch) | |
| tree | d2a295dd773d64b3ac9b6d2a8a2b940ce7360f08 /rts | |
| parent | 0714abaf0b190439631866132a5bf53c8d3a5d69 (diff) | |
| download | haskell-2baf448a8bb8138c736c74ae40cafa4b09491fda.tar.gz | |
sanity check fix
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Sanity.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index a2cdfc0687..44af5926d2 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)); |