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

Deal with ThreadRelocated in checkTSO().

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index c0a602a..a5d6126 100644 (file)
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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,7 +471,12 @@ checkTSO(StgTSO *tso)
     StgOffset stack_size = tso->stack_size;
     StgPtr stack_end = stack + stack_size;
 
-    if (tso->whatNext == ThreadComplete ||  tso->whatNext == ThreadKilled) {
+    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.  
        */