williamr@2: williamr@2: // Currently, SUN CC requires object file williamr@2: williamr@2: #if defined (__GNUC__) williamr@2: williamr@2: /* williamr@2: ** int _STLP_atomic_exchange (__stl_atomic_t *pvalue, __stl_atomic_t value) williamr@2: */ williamr@2: williamr@2: # ifdef __sparc_v9__ williamr@2: williamr@2: # ifdef __arch64__ williamr@2: williamr@2: # define _STLP_EXCH_ASM asm volatile ("casx [%3], %4, %0 ; membar #LoadLoad | #LoadStore " : \ williamr@2: "=r" (_L_value2), "=m" (*_L_pvalue1) : \ williamr@2: "m" (*_L_pvalue1), "r" (_L_pvalue1), "r" (_L_value1), "0" (_L_value2) ) williamr@2: williamr@2: # else /* __arch64__ */ williamr@2: williamr@2: # define _STLP_EXCH_ASM asm volatile ("cas [%3], %4, %0" : \ williamr@2: "=r" (_L_value2), "=m" (*_L_pvalue1) : \ williamr@2: "m" (*_L_pvalue1), "r" (_L_pvalue1), "r" (_L_value1), "0" (_L_value2) ) williamr@2: # endif williamr@2: williamr@2: # else /* __sparc_v9__ */ williamr@2: williamr@2: # define _STLP_EXCH_ASM asm volatile ("swap [%3], %0 " : \ williamr@2: "=r" (_L_value2), "=m" (*_L_pvalue1) : \ williamr@2: "m" (*_L_pvalue1), "r" (_L_pvalue1), "0" (_L_value2) ) williamr@2: # endif williamr@2: williamr@2: williamr@2: # define _STLP_ATOMIC_EXCHANGE(__pvalue1, __value2) \ williamr@2: ({ register volatile __stl_atomic_t *_L_pvalue1 = __pvalue1; \ williamr@2: register __stl_atomic_t _L_value1, _L_value2 = __value2 ; \ williamr@2: do { _L_value1 = *_L_pvalue1; _STLP_EXCH_ASM; } while ( _L_value1 != _L_value2 ) ; \ williamr@2: _L_value1; }) williamr@2: williamr@2: # define _STLP_ATOMIC_INCREMENT(__pvalue1) \ williamr@2: { register volatile __stl_atomic_t *_L_pvalue1 = __pvalue1; \ williamr@2: register __stl_atomic_t _L_value1, _L_value2; \ williamr@2: do { _L_value1 = *_L_pvalue1; _L_value2 = _L_value1+1; _STLP_EXCH_ASM; } while ( _L_value1 != _L_value2 ) ; } williamr@2: williamr@2: # define _STLP_ATOMIC_DECREMENT(__pvalue1) \ williamr@2: { register volatile __stl_atomic_t *_L_pvalue1 = __pvalue1; \ williamr@2: register __stl_atomic_t _L_value1, _L_value2; \ williamr@2: do { _L_value1 = *_L_pvalue1; _L_value2 = _L_value1-1; _STLP_EXCH_ASM; } while ( _L_value1 != _L_value2 ) ; } williamr@2: williamr@2: # elif ! defined (_STLP_NO_EXTERN_INLINE) williamr@2: williamr@2: extern "C" __stl_atomic_t _STLP_atomic_exchange(__stl_atomic_t * __x, __stl_atomic_t __v); williamr@2: extern "C" void _STLP_atomic_decrement(__stl_atomic_t* i); williamr@2: extern "C" void _STLP_atomic_increment(__stl_atomic_t* i); williamr@2: williamr@2: # define _STLP_ATOMIC_INCREMENT(__x) _STLP_atomic_increment((__stl_atomic_t*)__x) williamr@2: # define _STLP_ATOMIC_DECREMENT(__x) _STLP_atomic_decrement((__stl_atomic_t*)__x) williamr@2: # define _STLP_ATOMIC_EXCHANGE(__x, __y) _STLP_atomic_exchange((__stl_atomic_t*)__x, (__stl_atomic_t)__y) williamr@2: williamr@2: # endif williamr@2: