updateThunk: indirectee can be tagged
authorJames Clarke <jrtc27@jrtc27.com>
Mon, 16 Oct 2017 21:38:14 +0000 (17:38 -0400)
committerBen Gamari <ben@smart-cactus.org>
Mon, 16 Oct 2017 21:38:15 +0000 (17:38 -0400)
Reviewers: austin, bgamari, erikd, simonmar, trofi

Reviewed By: trofi

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D4100

rts/Threads.c

index 79c86f7..b09dfa8 100644 (file)
@@ -446,7 +446,7 @@ updateThunk (Capability *cap, StgTSO *tso, StgClosure *thunk, StgClosure *val)
         return;
     }
 
-    v = ((StgInd*)thunk)->indirectee;
+    v = UNTAG_CLOSURE(((StgInd*)thunk)->indirectee);
 
     updateWithIndirection(cap, thunk, val);