Ruby
1.9.3p448(2013-06-27revision41675)
Main Page
Modules
Data Structures
Files
File List
Globals
ruby_atomic.h
Go to the documentation of this file.
1
#ifndef RUBY_ATOMIC_H
2
#define RUBY_ATOMIC_H
3
4
#if 0
5
#elif defined HAVE_GCC_ATOMIC_BUILTINS
6
/* @shyouhei hack to support atomic operations in case of gcc. Gcc
7
* has its own pseudo-insns to support them. See info, or
8
* http://gcc.gnu.org/onlinedocs/gcc/Atomic-Builtins.html */
9
10
typedef
unsigned
int
rb_atomic_t
;
/* Anything OK */
11
# define ATOMIC_SET(var, val) (void)__sync_lock_test_and_set(&(var), (val))
12
# define ATOMIC_INC(var) __sync_fetch_and_add(&(var), 1)
13
# define ATOMIC_DEC(var) __sync_fetch_and_sub(&(var), 1)
14
# define ATOMIC_OR(var, val) __sync_or_and_fetch(&(var), (val))
15
# define ATOMIC_EXCHANGE(var, val) __sync_lock_test_and_set(&(var), (val))
16
17
# define ATOMIC_SIZE_ADD(var, val) __sync_fetch_and_add(&(var), (val))
18
# define ATOMIC_SIZE_SUB(var, val) __sync_fetch_and_sub(&(var), (val))
19
# define ATOMIC_SIZE_INC(var) __sync_fetch_and_add(&(var), 1)
20
# define ATOMIC_SIZE_DEC(var) __sync_fetch_and_sub(&(var), 1)
21
# define ATOMIC_SIZE_EXCHANGE(var, val) __sync_lock_test_and_set(&(var), (val))
22
23
#elif defined _WIN32
24
#if defined _MSC_VER && _MSC_VER > 1200
25
#pragma intrinsic(_InterlockedOr)
26
#endif
27
typedef
LONG
rb_atomic_t
;
28
29
# define ATOMIC_SET(var, val) InterlockedExchange(&(var), (val))
30
# define ATOMIC_INC(var) InterlockedIncrement(&(var))
31
# define ATOMIC_DEC(var) InterlockedDecrement(&(var))
32
#if defined __GNUC__
33
# define ATOMIC_OR(var, val) __asm__("lock\n\t" "orl\t%1, %0" : "=m"(var) : "Ir"(val))
34
#elif defined _MSC_VER && _MSC_VER <= 1200
35
# define ATOMIC_OR(var, val) rb_w32_atomic_or(&(var), (val))
36
static
inline
void
37
rb_w32_atomic_or(
volatile
rb_atomic_t
*var,
rb_atomic_t
val)
38
{
39
#ifdef _M_IX86
40
__asm mov eax, var;
41
__asm mov ecx, val;
42
__asm lock or [eax], ecx;
43
#else
44
#error unsupported architecture
45
#endif
46
}
47
#else
48
# define ATOMIC_OR(var, val) _InterlockedOr(&(var), (val))
49
#endif
50
# define ATOMIC_EXCHANGE(var, val) InterlockedExchange(&(var), (val))
51
52
# ifdef _M_AMD64
53
# define ATOMIC_SIZE_ADD(var, val) InterlockedExchangeAdd64(&(var), (val))
54
# define ATOMIC_SIZE_SUB(var, val) InterlockedExchangeAdd64(&(var), -(val))
55
# define ATOMIC_SIZE_INC(var) InterlockedIncrement64(&(var))
56
# define ATOMIC_SIZE_DEC(var) InterlockedDecrement64(&(var))
57
# define ATOMIC_SIZE_EXCHANGE(var, val) InterlockedExchange64(&(var), (val))
58
# else
59
# define ATOMIC_SIZE_ADD(var, val) InterlockedExchangeAdd((LONG *)&(var), (val))
60
# define ATOMIC_SIZE_SUB(var, val) InterlockedExchangeAdd((LONG *)&(var), -(val))
61
# define ATOMIC_SIZE_INC(var) InterlockedIncrement((LONG *)&(var))
62
# define ATOMIC_SIZE_DEC(var) InterlockedDecrement((LONG *)&(var))
63
# define ATOMIC_SIZE_EXCHANGE(var, val) InterlockedExchange((LONG *)&(var), (val))
64
# endif
65
66
#elif defined(__sun) && defined(HAVE_ATOMIC_H)
67
#include <atomic.h>
68
typedef
unsigned
int
rb_atomic_t
;
69
70
# define ATOMIC_SET(var, val) (void)atomic_swap_uint(&(var), (val))
71
# define ATOMIC_INC(var) atomic_inc_uint(&(var))
72
# define ATOMIC_DEC(var) atomic_dec_uint(&(var))
73
# define ATOMIC_OR(var, val) atomic_or_uint(&(var), (val))
74
# define ATOMIC_EXCHANGE(var, val) atomic_swap_uint(&(var), (val))
75
76
# if SIZEOF_SIZE_T == SIZEOF_LONG
77
# define ATOMIC_SIZE_ADD(var, val) atomic_add_long(&(var), (val))
78
# define ATOMIC_SIZE_SUB(var, val) atomic_add_long(&(var), -(val))
79
# define ATOMIC_SIZE_INC(var) atomic_inc_ulong(&(var))
80
# define ATOMIC_SIZE_DEC(var) atomic_dec_ulong(&(var))
81
# define ATOMIC_SIZE_EXCHANGE(var, val) atomic_swap_ulong(&(var), (val))
82
# else
83
# define ATOMIC_SIZE_ADD(var, val) atomic_add_int(&(var), (val))
84
# define ATOMIC_SIZE_SUB(var, val) atomic_add_int(&(var), -(val))
85
# define ATOMIC_SIZE_INC(var) atomic_inc_uint(&(var))
86
# define ATOMIC_SIZE_DEC(var) atomic_dec_uint(&(var))
87
# define ATOMIC_SIZE_EXCHANGE(var, val) atomic_swap_uint(&(var), (val))
88
# endif
89
90
#else
91
typedef
int
rb_atomic_t
;
92
#define NEED_RUBY_ATOMIC_EXCHANGE
93
extern
rb_atomic_t
ruby_atomic_exchange
(
rb_atomic_t
*ptr,
rb_atomic_t
val);
94
95
# define ATOMIC_SET(var, val) (void)((var) = (val))
96
# define ATOMIC_INC(var) ((var)++)
97
# define ATOMIC_DEC(var) ((var)--)
98
# define ATOMIC_OR(var, val) ((var) |= (val))
99
# define ATOMIC_EXCHANGE(var, val) ruby_atomic_exchange(&(var), (val))
100
101
# define ATOMIC_SIZE_ADD(var, val) (void)((var) += (val))
102
# define ATOMIC_SIZE_SUB(var, val) (void)((var) -= (val))
103
# define ATOMIC_SIZE_INC(var) ((var)++)
104
# define ATOMIC_SIZE_DEC(var) ((var)--)
105
# define ATOMIC_SIZE_EXCHANGE(var, val) atomic_size_exchange(&(var), (val))
106
static
inline
size_t
107
atomic_size_exchange
(
size_t
*ptr,
size_t
val)
108
{
109
size_t
old = *ptr;
110
*ptr = val;
111
return
old;
112
}
113
#endif
114
115
#endif
/* RUBY_ATOMIC_H */
116
Generated on Fri Jun 28 2013 02:34:43 for Ruby by
1.8.3