diff options
| author | James Clarke <jrtc27@jrtc27.com> | 2017-10-16 17:38:14 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-10-16 17:38:15 -0400 |
| commit | aa982685f23b1c723802ec4d574c23950b7d1a50 (patch) | |
| tree | 0da89fc63286e29ec4024b8081ada878094d8009 | |
| parent | 9e3add93282536de098cce3c4212e577e2eeb17e (diff) | |
| download | haskell-aa982685f23b1c723802ec4d574c23950b7d1a50.tar.gz | |
updateThunk: indirectee can be tagged
Reviewers: austin, bgamari, erikd, simonmar, trofi
Reviewed By: trofi
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D4100
| -rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 79c86f7432..b09dfa8ccc 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); |