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/SMPClosureOps.h | |
| parent | bf1b0bc78da7dbe5f6fbda54b37a9cb165ff857f (diff) | |
| download | haskell-d39bbd3dbd569d60c7f27f68a1f30885a30c3fa3.tar.gz | |
rts: Use relaxed atomics for whitehole spin stats
Diffstat (limited to 'rts/SMPClosureOps.h')
| -rw-r--r-- | rts/SMPClosureOps.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/SMPClosureOps.h b/rts/SMPClosureOps.h index c73821a782..9b34d787e8 100644 --- a/rts/SMPClosureOps.h +++ b/rts/SMPClosureOps.h @@ -62,12 +62,12 @@ EXTERN_INLINE StgInfoTable *reallyLockClosure(StgClosure *p) info = xchg((P_)(void *)&p->header.info, (W_)&stg_WHITEHOLE_info); if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info; #if defined(PROF_SPIN) - ++whitehole_lockClosure_spin; + NONATOMIC_ADD(&whitehole_lockClosure_spin, 1); #endif busy_wait_nop(); } while (++i < SPIN_COUNT); #if defined(PROF_SPIN) - ++whitehole_lockClosure_yield; + NONATOMIC_ADD(&whitehole_lockClosure_yield, 1); #endif yieldThread(); } while (1); |