diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-09-28 17:37:35 +0000 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-10-24 21:01:33 -0400 |
commit | d39bbd3dbd569d60c7f27f68a1f30885a30c3fa3 (patch) | |
tree | 556bcd3b18f437c512882d3e950b19375dd7adc6 /rts/ThreadPaused.c | |
parent | bf1b0bc78da7dbe5f6fbda54b37a9cb165ff857f (diff) | |
download | haskell-d39bbd3dbd569d60c7f27f68a1f30885a30c3fa3.tar.gz |
rts: Use relaxed atomics for whitehole spin stats
Diffstat (limited to 'rts/ThreadPaused.c')
-rw-r--r-- | rts/ThreadPaused.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 83c621e386..2a2b178575 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -331,7 +331,7 @@ threadPaused(Capability *cap, StgTSO *tso) if (cur_bh_info != bh_info) { bh_info = cur_bh_info; #if defined(PROF_SPIN) - ++whitehole_threadPaused_spin; + NONATOMIC_ADD(&whitehole_threadPaused_spin, 1); #endif busy_wait_nop(); goto retry; |