vectoriser: fix warning

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

diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c
index 7eeb90f..977e31d 100644 (file)
--- a/rts/sm/Compact.c
+++ b/rts/sm/Compact.c
@@ -476,6 +476,7 @@ thread_TSO (StgTSO *tso)
        thread_(&tso->block_info.closure);
     }
     thread_(&tso->blocked_exceptions);
+    thread_(&tso->bq);
     
     thread_(&tso->trec);
 
@@ -664,8 +665,6 @@ thread_obj (StgInfoTable *info, StgPtr p)
     
     case IND:
     case IND_PERM:
-    case IND_OLDGEN:
-    case IND_OLDGEN_PERM:
        thread(&((StgInd *)p)->indirectee);
        return p + sizeofW(StgInd);