diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-12-01 21:44:49 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-10-24 21:00:39 -0400 |
| commit | 7c0cdab17dcf57702bb57e4b9f4136701a33a2e0 (patch) | |
| tree | 0e2bb3488561c52ea2b7b0ae0fec2d34362a0a30 /rts/RaiseAsync.c | |
| parent | 2f56be8a74f1f012f1756380ae111ec1327ddde0 (diff) | |
| download | haskell-7c0cdab17dcf57702bb57e4b9f4136701a33a2e0.tar.gz | |
rts/RaiseAsync: Synchronize what_next read
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 893d96ec60..a3593fe7a6 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -245,7 +245,7 @@ check_target: ASSERT(target != END_TSO_QUEUE); // Thread already dead? - StgWord16 what_next = RELAXED_LOAD(&target->what_next); + StgWord16 what_next = SEQ_CST_LOAD(&target->what_next); if (what_next == ThreadComplete || what_next == ThreadKilled) { return THROWTO_SUCCESS; |