Ruby  2.0.0p247(2013-06-27revision41674)
ruby_atomic.h
Go to the documentation of this file.
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