Ruby
1.9.3p392(2013-02-22revision39386)
Main Page
Modules
Data Structures
Files
File List
Globals
vm_insnhelper.h
Go to the documentation of this file.
1
/**********************************************************************
2
3
insnhelper.h - helper macros to implement each instructions
4
5
$Author: ko1 $
6
created at: 04/01/01 15:50:34 JST
7
8
Copyright (C) 2004-2007 Koichi Sasada
9
10
**********************************************************************/
11
12
#ifndef RUBY_INSNHELPER_H
13
#define RUBY_INSNHELPER_H
14
28
#ifndef VMDEBUG
29
#define VMDEBUG 0
30
#endif
31
32
#if 0
33
#undef VMDEBUG
34
#define VMDEBUG 3
35
#endif
36
37
enum
{
38
BOP_PLUS
,
39
BOP_MINUS
,
40
BOP_MULT
,
41
BOP_DIV
,
42
BOP_MOD
,
43
BOP_EQ
,
44
BOP_EQQ
,
45
BOP_LT
,
46
BOP_LE
,
47
BOP_LTLT
,
48
BOP_AREF
,
49
BOP_ASET
,
50
BOP_LENGTH
,
51
BOP_SIZE
,
52
BOP_SUCC
,
53
BOP_GT
,
54
BOP_GE
,
55
BOP_NOT
,
56
BOP_NEQ
,
57
58
BOP_LAST_
59
};
60
61
extern
char
ruby_vm_redefined_flag
[
BOP_LAST_
];
62
extern
VALUE
ruby_vm_const_missing_count
;
63
64
65
/**********************************************************/
66
/* deal with stack */
67
/**********************************************************/
68
69
#define PUSH(x) (SET_SV(x), INC_SP(1))
70
#define TOPN(n) (*(GET_SP()-(n)-1))
71
#define POPN(n) (DEC_SP(n))
72
#define POP() (DEC_SP(1))
73
#define STACK_ADDR_FROM_TOP(n) (GET_SP()-(n))
74
75
#define GET_TOS() (tos)
/* dummy */
76
77
/**********************************************************/
78
/* deal with registers */
79
/**********************************************************/
80
81
#define REG_CFP (reg_cfp)
82
#define REG_PC (REG_CFP->pc)
83
#define REG_SP (REG_CFP->sp)
84
#define REG_LFP (REG_CFP->lfp)
85
#define REG_DFP (REG_CFP->dfp)
86
87
#define RESTORE_REGS() do { \
88
REG_CFP = th->cfp; \
89
} while (0)
90
91
#define REG_A reg_a
92
#define REG_B reg_b
93
94
#ifdef COLLECT_USAGE_ANALYSIS
95
#define USAGE_ANALYSIS_REGISTER_HELPER(a, b, v) \
96
(USAGE_ANALYSIS_REGISTER((a), (b)), (v))
97
#else
98
#define USAGE_ANALYSIS_REGISTER_HELPER(a, b, v) (v)
99
#endif
100
101
/* PC */
102
#define GET_PC() (USAGE_ANALYSIS_REGISTER_HELPER(0, 0, REG_PC))
103
#define SET_PC(x) (REG_PC = (USAGE_ANALYSIS_REGISTER_HELPER(0, 1, (x))))
104
#define GET_CURRENT_INSN() (*GET_PC())
105
#define GET_OPERAND(n) (GET_PC()[(n)])
106
#define ADD_PC(n) (SET_PC(REG_PC + (n)))
107
108
#define GET_PC_COUNT() (REG_PC - GET_ISEQ()->iseq_encoded)
109
#define JUMP(dst) (REG_PC += (dst))
110
111
/* FP */
112
#define GET_CFP() (USAGE_ANALYSIS_REGISTER_HELPER(2, 0, REG_CFP))
113
#define GET_LFP() (USAGE_ANALYSIS_REGISTER_HELPER(3, 0, REG_LFP))
114
#define SET_LFP(x) (REG_LFP = (USAGE_ANALYSIS_REGISTER_HELPER(3, 1, (x))))
115
#define GET_DFP() (USAGE_ANALYSIS_REGISTER_HELPER(4, 0, REG_DFP))
116
#define SET_DFP(x) (REG_DFP = (USAGE_ANALYSIS_REGISTER_HELPER(4, 1, (x))))
117
118
/* SP */
119
#define GET_SP() (USAGE_ANALYSIS_REGISTER_HELPER(1, 0, REG_SP))
120
#define SET_SP(x) (REG_SP = (USAGE_ANALYSIS_REGISTER_HELPER(1, 1, (x))))
121
#define INC_SP(x) (REG_SP += (USAGE_ANALYSIS_REGISTER_HELPER(1, 1, (x))))
122
#define DEC_SP(x) (REG_SP -= (USAGE_ANALYSIS_REGISTER_HELPER(1, 1, (x))))
123
#define SET_SV(x) (*GET_SP() = (x))
124
/* set current stack value as x */
125
126
#define GET_SP_COUNT() (REG_SP - th->stack)
127
128
/* instruction sequence C struct */
129
#define GET_ISEQ() (GET_CFP()->iseq)
130
131
/**********************************************************/
132
/* deal with variables */
133
/**********************************************************/
134
135
#define GET_PREV_DFP(dfp) ((VALUE *)((dfp)[0] & ~0x03))
136
137
#define GET_GLOBAL(entry) rb_gvar_get((struct rb_global_entry*)(entry))
138
#define SET_GLOBAL(entry, val) rb_gvar_set((struct rb_global_entry*)(entry), (val))
139
140
#define GET_CONST_INLINE_CACHE(dst) ((IC) * (GET_PC() + (dst) + 2))
141
142
/**********************************************************/
143
/* deal with values */
144
/**********************************************************/
145
146
#define GET_SELF() (USAGE_ANALYSIS_REGISTER_HELPER(5, 0, GET_CFP()->self))
147
148
/**********************************************************/
149
/* deal with control flow 2: method/iterator */
150
/**********************************************************/
151
152
#define COPY_CREF(c1, c2) do { \
153
NODE *__tmp_c2 = (c2); \
154
(c1)->nd_clss = __tmp_c2->nd_clss; \
155
(c1)->nd_visi = __tmp_c2->nd_visi;\
156
(c1)->nd_next = __tmp_c2->nd_next; \
157
if (__tmp_c2->flags & NODE_FL_CREF_PUSHED_BY_EVAL) { \
158
(c1)->flags |= NODE_FL_CREF_PUSHED_BY_EVAL; \
159
} \
160
} while (0)
161
162
#define CALL_METHOD(num, blockptr, flag, id, me, recv) do { \
163
VALUE v = vm_call_method(th, GET_CFP(), (num), (blockptr), (flag), (id), (me), (recv)); \
164
if (v == Qundef) { \
165
RESTORE_REGS(); \
166
NEXT_INSN(); \
167
} \
168
else { \
169
val = v; \
170
} \
171
} while (0)
172
173
#define GET_BLOCK_PTR() \
174
((rb_block_t *)(GC_GUARDED_PTR_REF(GET_LFP()[0] & \
175
((GET_LFP()[0] & 0x02) - 0x02))))
176
177
/**********************************************************/
178
/* deal with control flow 3: exception */
179
/**********************************************************/
180
181
182
/**********************************************************/
183
/* others */
184
/**********************************************************/
185
186
/* optimize insn */
187
#define FIXNUM_2_P(a, b) ((a) & (b) & 1)
188
#define BASIC_OP_UNREDEFINED_P(op) (LIKELY(ruby_vm_redefined_flag[(op)] == 0))
189
#define HEAP_CLASS_OF(obj) RBASIC(obj)->klass
190
191
#ifndef USE_IC_FOR_SPECIALIZED_METHOD
192
#define USE_IC_FOR_SPECIALIZED_METHOD 1
193
#endif
194
195
#if USE_IC_FOR_SPECIALIZED_METHOD
196
197
#define CALL_SIMPLE_METHOD(num, id, recv) do { \
198
VALUE klass = CLASS_OF(recv); \
199
CALL_METHOD((num), 0, 0, (id), vm_method_search((id), klass, ic), (recv)); \
200
} while (0)
201
202
#else
203
204
#define CALL_SIMPLE_METHOD(num, id, recv) do { \
205
VALUE klass = CLASS_OF(recv); \
206
CALL_METHOD((num), 0, 0, (id), rb_method_entry(klass, (id)), (recv)); \
207
} while (0)
208
209
#endif
210
211
static
VALUE
ruby_vm_global_state_version
= 1;
212
213
#define GET_VM_STATE_VERSION() (ruby_vm_global_state_version)
214
#define INC_VM_STATE_VERSION() do { \
215
ruby_vm_global_state_version = (ruby_vm_global_state_version + 1); \
216
if (ruby_vm_global_state_version == 0) vm_clear_all_cache(); \
217
} while (0)
218
static
void
vm_clear_all_cache
(
void
);
219
220
#endif
/* RUBY_INSNHELPER_H */
221
Generated on Tue Feb 26 2013 08:43:08 for Ruby by
1.8.3