diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 05:46:43 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2023-04-24 06:03:49 -0400 |
commit | 5090582c4a34ff290d3ae780a2d07051dddc276c (patch) | |
tree | 096556d4b4d3c2ee43721ae1c6e5ff5aa51b8a64 | |
parent | 3f8b32163e7ffcd554bff2bc62bcdc74d10d00ea (diff) | |
download | haskell-5090582c4a34ff290d3ae780a2d07051dddc276c.tar.gz |
rts: Drop benign race
-rw-r--r-- | rts/Messages.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/rts/Messages.c b/rts/Messages.c index 139f61c3c8..a5b46faa31 100644 --- a/rts/Messages.c +++ b/rts/Messages.c @@ -191,9 +191,6 @@ uint32_t messageBlackHole(Capability *cap, MessageBlackHole *msg) StgClosure *p; const StgInfoTable *info; do { - // If we are being called from stg_BLACKHOLE then TSAN won't know about the - // previous read barrier that makes the following access safe. - TSAN_ANNOTATE_BENIGN_RACE(&((StgInd*)bh)->indirectee, "messageBlackHole"); p = UNTAG_CLOSURE(ACQUIRE_LOAD(&((StgInd*)bh)->indirectee)); info = RELAXED_LOAD(&p->header.info); } while (info == &stg_IND_info); |