diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2023-02-08 19:26:39 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-03-08 15:02:30 -0500 |
| commit | da7b2b941d235a284d5685829c235a9e671a0336 (patch) | |
| tree | c2acbb7f62b7deb77221f3137500c3d48f61b250 | |
| parent | b90346392f5455bc4a6f6d86700296babc429a98 (diff) | |
| download | haskell-da7b2b941d235a284d5685829c235a9e671a0336.tar.gz | |
rts: Use release ordering when storing thread labels
Since this makes the ByteArray# visible from other cores.
| -rw-r--r-- | rts/ThreadLabels.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ThreadLabels.c b/rts/ThreadLabels.c index 87130eeabb..55154f1de9 100644 --- a/rts/ThreadLabels.c +++ b/rts/ThreadLabels.c @@ -64,6 +64,6 @@ labelThread(Capability *cap, } } recordClosureMutated(cap, (StgClosure*)tso); - tso->label = label; + RELEASE_STORE(&tso->label, label); traceThreadLabel(cap, tso, (char *) label->payload, label->bytes); } |