X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c-inc;fp=rts%2Fsm%2FEvac.c-inc;h=eabdcdcc1d8e580e43242930463537660d77d283;hb=04cddd339c000df6d02c90ce59dbffa58d2fe166;hp=16bd297afcafa97acc797222e52eba4d68064171;hpb=9de1ad504a0a12dabd42b206f06ca04fa0e7009a;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c-inc b/rts/sm/Evac.c-inc
index 16bd297..eabdcdc 100644
--- a/rts/sm/Evac.c-inc
+++ b/rts/sm/Evac.c-inc
@@ -330,7 +330,7 @@ loop:
 	  info = get_itbl(q);
 	  if (info->type == TSO && 
 	      ((StgTSO *)q)->what_next == ThreadRelocated) {
-	      q = (StgClosure *)((StgTSO *)q)->link;
+	      q = (StgClosure *)((StgTSO *)q)->_link;
               *p = q;
 	      goto loop;
 	  }
@@ -537,7 +537,7 @@ loop:
       /* Deal with redirected TSOs (a TSO that's had its stack enlarged).
        */
       if (tso->what_next == ThreadRelocated) {
-	q = (StgClosure *)tso->link;
+	q = (StgClosure *)tso->_link;
 	*p = q;
 	goto loop;
       }