X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FScav.c;h=4fa0a220e0dc8a8ff74d436f4baba6f2d3585691;hb=4207605cc8e035e05f651334ef1be90b098d305d;hp=b34aca62b8a118e1531eeadc865066d3bc88f066;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git

diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c
index b34aca6..4fa0a22 100644
--- a/rts/sm/Scav.c
+++ b/rts/sm/Scav.c
@@ -73,6 +73,11 @@ scavengeTSO (StgTSO *tso)
 
     debugTrace(DEBUG_gc,"scavenging thread %d",(int)tso->id);
 
+    // update the pointer from the Task.
+    if (tso->bound != NULL) {
+        tso->bound->tso = tso;
+    }
+
     saved_eager = gct->eager_promotion;
     gct->eager_promotion = rtsFalse;