From: simonmar <unknown>
Date: Sun, 30 Jan 2000 10:16:09 +0000 (+0000)
Subject: [project @ 2000-01-30 10:16:09 by simonmar]
X-Git-Tag: Approximately_9120_patches~5174
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f195b5de5c01661102bc51c51f96dbe747ac8023;p=ghc-hetmet.git

[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
--- 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.  
        */