diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-12-01 14:31:53 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-10-30 00:41:14 -0400 |
| commit | aad1f803471fff1f187b0a0784dc38a867379847 (patch) | |
| tree | ad5bdae47bd9d8d6b1bf7e015736110989814326 /includes | |
| parent | 3d0f033c5109ae0131b81e6b9aaf2a04ebeba1f4 (diff) | |
| download | haskell-aad1f803471fff1f187b0a0784dc38a867379847.tar.gz | |
rts/GC: Use atomics
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/GC.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h index 9f4a0dde07..e8dc05048a 100644 --- a/includes/rts/storage/GC.h +++ b/includes/rts/storage/GC.h @@ -247,9 +247,9 @@ extern bool keepCAFs; INLINE_HEADER void initBdescr(bdescr *bd, generation *gen, generation *dest) { - bd->gen = gen; - bd->gen_no = gen->no; - bd->dest_no = dest->no; + RELAXED_STORE(&bd->gen, gen); + RELAXED_STORE(&bd->gen_no, gen->no); + RELAXED_STORE(&bd->dest_no, dest->no); #if !IN_STG_CODE /* See Note [RtsFlags is a pointer in STG code] */ |