Ruby
2.0.0p247(2013-06-27revision41674)
|
00001 #ifndef RUBY_ATOMIC_H 00002 #define RUBY_ATOMIC_H 00003 00004 #if 0 00005 #elif defined HAVE_GCC_ATOMIC_BUILTINS 00006 /* @shyouhei hack to support atomic operations in case of gcc. Gcc 00007 * has its own pseudo-insns to support them. See info, or 00008 * http://gcc.gnu.org/onlinedocs/gcc/Atomic-Builtins.html */ 00009 00010 typedef unsigned int rb_atomic_t; /* Anything OK */ 00011 # define ATOMIC_SET(var, val) (void)__sync_lock_test_and_set(&(var), (val)) 00012 # define ATOMIC_INC(var) __sync_fetch_and_add(&(var), 1) 00013 # define ATOMIC_DEC(var) __sync_fetch_and_sub(&(var), 1) 00014 # define ATOMIC_OR(var, val) __sync_or_and_fetch(&(var), (val)) 00015 # define ATOMIC_EXCHANGE(var, val) __sync_lock_test_and_set(&(var), (val)) 00016 # define ATOMIC_CAS(var, oldval, newval) __sync_val_compare_and_swap(&(var), (oldval), (newval)) 00017 00018 # define ATOMIC_SIZE_ADD(var, val) __sync_fetch_and_add(&(var), (val)) 00019 # define ATOMIC_SIZE_SUB(var, val) __sync_fetch_and_sub(&(var), (val)) 00020 # define ATOMIC_SIZE_INC(var) __sync_fetch_and_add(&(var), 1) 00021 # define ATOMIC_SIZE_DEC(var) __sync_fetch_and_sub(&(var), 1) 00022 # define ATOMIC_SIZE_EXCHANGE(var, val) __sync_lock_test_and_set(&(var), (val)) 00023 00024 #elif defined _WIN32 00025 #if defined _MSC_VER && _MSC_VER > 1200 00026 #pragma intrinsic(_InterlockedOr) 00027 #endif 00028 typedef LONG rb_atomic_t; 00029 00030 # define ATOMIC_SET(var, val) InterlockedExchange(&(var), (val)) 00031 # define ATOMIC_INC(var) InterlockedIncrement(&(var)) 00032 # define ATOMIC_DEC(var) InterlockedDecrement(&(var)) 00033 #if defined __GNUC__ 00034 # define ATOMIC_OR(var, val) __asm__("lock\n\t" "orl\t%1, %0" : "=m"(var) : "Ir"(val)) 00035 #elif defined _MSC_VER && _MSC_VER <= 1200 00036 # define ATOMIC_OR(var, val) rb_w32_atomic_or(&(var), (val)) 00037 static inline void 00038 rb_w32_atomic_or(volatile rb_atomic_t *var, rb_atomic_t val) 00039 { 00040 #ifdef _M_IX86 00041 __asm mov eax, var; 00042 __asm mov ecx, val; 00043 __asm lock or [eax], ecx; 00044 #else 00045 #error unsupported architecture 00046 #endif 00047 } 00048 #else 00049 # define ATOMIC_OR(var, val) _InterlockedOr(&(var), (val)) 00050 #endif 00051 # define ATOMIC_EXCHANGE(var, val) InterlockedExchange(&(var), (val)) 00052 # define ATOMIC_CAS(var, oldval, newval) InterlockedCompareExchange(&(var), (newval), (oldval)) 00053 # ifdef _M_AMD64 00054 # define ATOMIC_SIZE_ADD(var, val) InterlockedExchangeAdd64(&(var), (val)) 00055 # define ATOMIC_SIZE_SUB(var, val) InterlockedExchangeAdd64(&(var), -(val)) 00056 # define ATOMIC_SIZE_INC(var) InterlockedIncrement64(&(var)) 00057 # define ATOMIC_SIZE_DEC(var) InterlockedDecrement64(&(var)) 00058 # define ATOMIC_SIZE_EXCHANGE(var, val) InterlockedExchange64(&(var), (val)) 00059 # else 00060 # define ATOMIC_SIZE_ADD(var, val) InterlockedExchangeAdd((LONG *)&(var), (val)) 00061 # define ATOMIC_SIZE_SUB(var, val) InterlockedExchangeAdd((LONG *)&(var), -(val)) 00062 # define ATOMIC_SIZE_INC(var) InterlockedIncrement((LONG *)&(var)) 00063 # define ATOMIC_SIZE_DEC(var) InterlockedDecrement((LONG *)&(var)) 00064 # define ATOMIC_SIZE_EXCHANGE(var, val) InterlockedExchange((LONG *)&(var), (val)) 00065 # endif 00066 00067 #elif defined(__sun) && defined(HAVE_ATOMIC_H) 00068 #include <atomic.h> 00069 typedef unsigned int rb_atomic_t; 00070 00071 # define ATOMIC_SET(var, val) (void)atomic_swap_uint(&(var), (val)) 00072 # define ATOMIC_INC(var) atomic_inc_uint(&(var)) 00073 # define ATOMIC_DEC(var) atomic_dec_uint(&(var)) 00074 # define ATOMIC_OR(var, val) atomic_or_uint(&(var), (val)) 00075 # define ATOMIC_EXCHANGE(var, val) atomic_swap_uint(&(var), (val)) 00076 # define ATOMIC_CAS(var, oldval, newval) atomic_cas_uint(&(var), (oldval), (newval)) 00077 00078 # if SIZEOF_SIZE_T == SIZEOF_LONG 00079 # define ATOMIC_SIZE_ADD(var, val) atomic_add_long(&(var), (val)) 00080 # define ATOMIC_SIZE_SUB(var, val) atomic_add_long(&(var), -(val)) 00081 # define ATOMIC_SIZE_INC(var) atomic_inc_ulong(&(var)) 00082 # define ATOMIC_SIZE_DEC(var) atomic_dec_ulong(&(var)) 00083 # define ATOMIC_SIZE_EXCHANGE(var, val) atomic_swap_ulong(&(var), (val)) 00084 # else 00085 # define ATOMIC_SIZE_ADD(var, val) atomic_add_int(&(var), (val)) 00086 # define ATOMIC_SIZE_SUB(var, val) atomic_add_int(&(var), -(val)) 00087 # define ATOMIC_SIZE_INC(var) atomic_inc_uint(&(var)) 00088 # define ATOMIC_SIZE_DEC(var) atomic_dec_uint(&(var)) 00089 # define ATOMIC_SIZE_EXCHANGE(var, val) atomic_swap_uint(&(var), (val)) 00090 # endif 00091 00092 #else 00093 typedef int rb_atomic_t; 00094 #define NEED_RUBY_ATOMIC_OPS 00095 extern rb_atomic_t ruby_atomic_exchange(rb_atomic_t *ptr, rb_atomic_t val); 00096 extern rb_atomic_t ruby_atomic_compare_and_swap(rb_atomic_t *ptr, 00097 rb_atomic_t cmp, 00098 rb_atomic_t newval); 00099 00100 # define ATOMIC_SET(var, val) (void)((var) = (val)) 00101 # define ATOMIC_INC(var) ((var)++) 00102 # define ATOMIC_DEC(var) ((var)--) 00103 # define ATOMIC_OR(var, val) ((var) |= (val)) 00104 # define ATOMIC_EXCHANGE(var, val) ruby_atomic_exchange(&(var), (val)) 00105 # define ATOMIC_CAS(var, oldval, newval) ruby_atomic_compare_and_swap(&(var), (oldval), (newval)) 00106 00107 # define ATOMIC_SIZE_ADD(var, val) (void)((var) += (val)) 00108 # define ATOMIC_SIZE_SUB(var, val) (void)((var) -= (val)) 00109 # define ATOMIC_SIZE_INC(var) ((var)++) 00110 # define ATOMIC_SIZE_DEC(var) ((var)--) 00111 # define ATOMIC_SIZE_EXCHANGE(var, val) atomic_size_exchange(&(var), (val)) 00112 static inline size_t 00113 atomic_size_exchange(size_t *ptr, size_t val) 00114 { 00115 size_t old = *ptr; 00116 *ptr = val; 00117 return old; 00118 } 00119 #endif 00120 00121 #endif /* RUBY_ATOMIC_H */ 00122