Implement stack chunks and separate TSO/STACK objects

[ghc-hetmet.git] / rts / sm / GCAux.c

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index f69c81d..97af17a 100644 (file)
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -67,12 +67,7 @@ isAlive(StgClosure *p)
 
     // large objects use the evacuated flag
     if (bd->flags & BF_LARGE) {
-        if (get_itbl(q)->type == TSO &&
-            ((StgTSO *)p)->what_next == ThreadRelocated) {
-            p = (StgClosure *)((StgTSO *)p)->_link;
-            continue;
-        }
-       return NULL;
+        return NULL;
     }
 
     // check the mark bit for compacted steps
@@ -98,13 +93,6 @@ isAlive(StgClosure *p)
       p = ((StgInd *)q)->indirectee;
       continue;
 
-    case TSO:
-      if (((StgTSO *)q)->what_next == ThreadRelocated) {
-       p = (StgClosure *)((StgTSO *)q)->_link;
-       continue;
-      } 
-      return NULL;
-
     default:
       // dead. 
       return NULL;