[ruby/win32ole] Undefine allocator of WIN32OLE_VARIABLE to get rid of warning
[ruby-80x24.org.git] / vm_sync.h
blob4d83b5e52cbb9fdf870df80b948d81bf349558b0
1 #ifndef RUBY_VM_SYNC_H
2 #define RUBY_VM_SYNC_H
4 #include "vm_debug.h"
5 #include "debug_counter.h"
7 #if USE_RUBY_DEBUG_LOG
8 #define LOCATION_ARGS const char *file, int line
9 #define LOCATION_PARAMS file, line
10 #define APPEND_LOCATION_ARGS , const char *file, int line
11 #define APPEND_LOCATION_PARAMS , file, line
12 #else
13 #define LOCATION_ARGS void
14 #define LOCATION_PARAMS
15 #define APPEND_LOCATION_ARGS
16 #define APPEND_LOCATION_PARAMS
17 #endif
19 bool rb_vm_locked_p(void);
20 void rb_vm_lock_body(LOCATION_ARGS);
21 void rb_vm_unlock_body(LOCATION_ARGS);
23 struct rb_ractor_struct;
24 void rb_vm_lock_enter_body_cr(struct rb_ractor_struct *cr, unsigned int *lev APPEND_LOCATION_ARGS);
25 void rb_vm_lock_enter_body_nb(unsigned int *lev APPEND_LOCATION_ARGS);
26 void rb_vm_lock_enter_body(unsigned int *lev APPEND_LOCATION_ARGS);
27 void rb_vm_lock_leave_body(unsigned int *lev APPEND_LOCATION_ARGS);
28 void rb_vm_barrier(void);
30 #if RUBY_DEBUG
31 // GET_VM()
32 #include "vm_core.h"
33 #endif
35 RUBY_EXTERN struct rb_ractor_struct *ruby_single_main_ractor; // ractor.c
37 static inline bool
38 rb_multi_ractor_p(void)
40 if (LIKELY(ruby_single_main_ractor)) {
41 // 0 on boot time.
42 RUBY_ASSERT(GET_VM()->ractor.cnt <= 1);
43 return false;
45 else {
46 // multi-ractor mode can run ractor.cnt == 1
47 return true;
51 static inline void
52 rb_vm_lock(const char *file, int line)
54 RB_DEBUG_COUNTER_INC(vm_sync_lock);
56 if (rb_multi_ractor_p()) {
57 rb_vm_lock_body(LOCATION_PARAMS);
61 static inline void
62 rb_vm_unlock(const char *file, int line)
64 if (rb_multi_ractor_p()) {
65 rb_vm_unlock_body(LOCATION_PARAMS);
69 static inline void
70 rb_vm_lock_enter(unsigned int *lev, const char *file, int line)
72 RB_DEBUG_COUNTER_INC(vm_sync_lock_enter);
74 if (rb_multi_ractor_p()) {
75 rb_vm_lock_enter_body(lev APPEND_LOCATION_PARAMS);
79 static inline void
80 rb_vm_lock_enter_nb(unsigned int *lev, const char *file, int line)
82 RB_DEBUG_COUNTER_INC(vm_sync_lock_enter_nb);
84 if (rb_multi_ractor_p()) {
85 rb_vm_lock_enter_body_nb(lev APPEND_LOCATION_PARAMS);
89 static inline void
90 rb_vm_lock_leave(unsigned int *lev, const char *file, int line)
92 if (rb_multi_ractor_p()) {
93 rb_vm_lock_leave_body(lev APPEND_LOCATION_PARAMS);
97 static inline void
98 rb_vm_lock_enter_cr(struct rb_ractor_struct *cr, unsigned int *levp, const char *file, int line)
100 RB_DEBUG_COUNTER_INC(vm_sync_lock_enter_cr);
101 rb_vm_lock_enter_body_cr(cr, levp APPEND_LOCATION_PARAMS);
104 static inline void
105 rb_vm_lock_leave_cr(struct rb_ractor_struct *cr, unsigned int *levp, const char *file, int line)
107 rb_vm_lock_leave_body(levp APPEND_LOCATION_PARAMS);
110 #define RB_VM_LOCKED_P() rb_vm_locked_p()
112 #define RB_VM_LOCK() rb_vm_lock(__FILE__, __LINE__)
113 #define RB_VM_UNLOCK() rb_vm_unlock(__FILE__, __LINE__)
115 #define RB_VM_LOCK_ENTER_CR_LEV(cr, levp) rb_vm_lock_enter_cr(cr, levp, __FILE__, __LINE__)
116 #define RB_VM_LOCK_LEAVE_CR_LEV(cr, levp) rb_vm_lock_leave_cr(cr, levp, __FILE__, __LINE__)
117 #define RB_VM_LOCK_ENTER_LEV(levp) rb_vm_lock_enter(levp, __FILE__, __LINE__)
118 #define RB_VM_LOCK_LEAVE_LEV(levp) rb_vm_lock_leave(levp, __FILE__, __LINE__)
120 #define RB_VM_LOCK_ENTER() { unsigned int _lev; RB_VM_LOCK_ENTER_LEV(&_lev);
121 #define RB_VM_LOCK_LEAVE() RB_VM_LOCK_LEAVE_LEV(&_lev); }
123 #define RB_VM_LOCK_ENTER_LEV_NB(levp) rb_vm_lock_enter_nb(levp, __FILE__, __LINE__)
124 #define RB_VM_LOCK_ENTER_NO_BARRIER() { unsigned int _lev; RB_VM_LOCK_ENTER_LEV_NB(&_lev);
125 #define RB_VM_LOCK_LEAVE_NO_BARRIER() RB_VM_LOCK_LEAVE_LEV(&_lev); }
127 #if RUBY_DEBUG > 0
128 void RUBY_ASSERT_vm_locking(void);
129 void RUBY_ASSERT_vm_unlocking(void);
130 #define ASSERT_vm_locking() RUBY_ASSERT_vm_locking()
131 #define ASSERT_vm_unlocking() RUBY_ASSERT_vm_unlocking()
132 #else
133 #define ASSERT_vm_locking()
134 #define ASSERT_vm_unlocking()
135 #endif
137 #endif // RUBY_VM_SYNC_H