Add a write barrier to the TSO link field (#1589)

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

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index fccae2c..0fb61f1 100644 (file)
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -88,7 +88,7 @@ isAlive(StgClosure *p)
 
     case TSO:
       if (((StgTSO *)q)->what_next == ThreadRelocated) {
-       p = (StgClosure *)((StgTSO *)q)->link;
+       p = (StgClosure *)((StgTSO *)q)->_link;
        continue;
       } 
       return NULL;