Commit f195b5de authored by simonmar's avatar simonmar
Browse files

[project @ 2000-01-30 10:16:09 by simonmar]

Deal with ThreadRelocated in checkTSO().
parent 84ccb85d
/* -----------------------------------------------------------------------------
* $Id: Sanity.c,v 1.15 2000/01/13 14:34:04 hwloidl Exp $
* $Id: Sanity.c,v 1.16 2000/01/30 10:16:09 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -471,6 +471,11 @@ checkTSO(StgTSO *tso)
StgOffset stack_size = tso->stack_size;
StgPtr stack_end = stack + stack_size;
if (tso->whatNext == ThreadRelocated) {
checkTSO(tso->link);
return;
}
if (tso->whatNext == ThreadComplete || tso->whatNext == ThreadKilled) {
/* The garbage collector doesn't bother following any pointers
* from dead threads, so don't check sanity here.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment