diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 10:34:31 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 10:34:31 -0400 |
commit | db98923f70606b156f3cf82147ff6ca4172aed14 (patch) | |
tree | 8e4721f142b43e896a726104d9a08b7609c5af76 | |
parent | 8094c7853daca95175c650657b8fc862e037248e (diff) | |
download | haskell-db98923f70606b156f3cf82147ff6ca4172aed14.tar.gz |
updateThunkwip/tsan/fixes
-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 0350433cf0..9af1069986 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -469,7 +469,7 @@ updateThunk (Capability *cap, StgTSO *tso, StgClosure *thunk, StgClosure *val) return; } - v = UNTAG_CLOSURE(((StgInd*)thunk)->indirectee); + v = UNTAG_CLOSURE(ACQUIRE_LOAD(&((StgInd*)thunk)->indirectee)); updateWithIndirection(cap, thunk, val); |