[commit: ghc] master: updateThunk: indirectee can be tagged (aa98268)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/aa982685f23b1c723802ec4d574c23950b7d1a50/ghc

>---------------------------------------------------------------

commit aa982685f23b1c723802ec4d574c23950b7d1a50
Author: James Clarke <jrtc27 at jrtc27.com>
Date:   Mon Oct 16 17:38:14 2017 -0400

    updateThunk: indirectee can be tagged
    
    Reviewers: austin, bgamari, erikd, simonmar, trofi
    
    Reviewed By: trofi
    
    Subscribers: rwbarton, thomie
    
    Differential Revision: https://phabricator.haskell.org/D4100


>---------------------------------------------------------------

aa982685f23b1c723802ec4d574c23950b7d1a50
 rts/Threads.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Threads.c b/rts/Threads.c
index 79c86f7..b09dfa8 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -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);