Ruby  2.7.1p83(2020-03-31revisiona0c7c23c9cec0d0ffcba012279cd652d28ad5bf3)
vm_exec.h
Go to the documentation of this file.
1 /**********************************************************************
2 
3  vm.h -
4 
5  $Author$
6  created at: 04/01/01 16:56:59 JST
7 
8  Copyright (C) 2004-2007 Koichi Sasada
9 
10 **********************************************************************/
11 
12 #ifndef RUBY_VM_EXEC_H
13 #define RUBY_VM_EXEC_H
14 
15 typedef long OFFSET;
16 typedef unsigned long lindex_t;
17 typedef VALUE GENTRY;
18 typedef rb_iseq_t *ISEQ;
19 
20 #if VMDEBUG > 0
21 #define debugs printf
22 #define DEBUG_ENTER_INSN(insn) \
23  rb_vmdebug_debug_print_pre(ec, GET_CFP(), GET_PC());
24 
25 #if OPT_STACK_CACHING
26 #define SC_REGS() , reg_a, reg_b
27 #else
28 #define SC_REGS()
29 #endif
30 
31 #define DEBUG_END_INSN() \
32  rb_vmdebug_debug_print_post(ec, GET_CFP() SC_REGS());
33 
34 #else
35 
36 #define debugs
37 #define DEBUG_ENTER_INSN(insn)
38 #define DEBUG_END_INSN()
39 #endif
40 
41 #define throwdebug if(0)printf
42 /* #define throwdebug printf */
43 
44 /************************************************/
45 #if defined(DISPATCH_XXX)
46 error !
47 /************************************************/
48 #elif OPT_CALL_THREADED_CODE
49 
50 #define LABEL(x) insn_func_##x
51 #define ELABEL(x)
52 #define LABEL_PTR(x) &LABEL(x)
53 
54 #define INSN_ENTRY(insn) \
55  static rb_control_frame_t * \
56  FUNC_FASTCALL(LABEL(insn))(rb_execution_context_t *ec, rb_control_frame_t *reg_cfp) {
57 
58 #define END_INSN(insn) return reg_cfp;}
59 
60 #define NEXT_INSN() return reg_cfp;
61 
62 #define START_OF_ORIGINAL_INSN(x) /* ignore */
63 #define DISPATCH_ORIGINAL_INSN(x) return LABEL(x)(ec, reg_cfp);
64 
65 /************************************************/
66 #elif OPT_TOKEN_THREADED_CODE || OPT_DIRECT_THREADED_CODE
67 /* threaded code with gcc */
68 
69 #define LABEL(x) INSN_LABEL_##x
70 #define ELABEL(x) INSN_ELABEL_##x
71 #define LABEL_PTR(x) RB_GNUC_EXTENSION(&&LABEL(x))
72 
73 #define INSN_ENTRY_SIG(insn) \
74  if (0) fprintf(stderr, "exec: %s@(%"PRIdPTRDIFF", %"PRIdPTRDIFF")@%s:%u\n", #insn, \
75  (reg_pc - reg_cfp->iseq->body->iseq_encoded), \
76  (reg_cfp->pc - reg_cfp->iseq->body->iseq_encoded), \
77  RSTRING_PTR(rb_iseq_path(reg_cfp->iseq)), \
78  rb_iseq_line_no(reg_cfp->iseq, reg_pc - reg_cfp->iseq->body->iseq_encoded));
79 
80 #define INSN_DISPATCH_SIG(insn)
81 
82 #define INSN_ENTRY(insn) \
83  LABEL(insn): \
84  INSN_ENTRY_SIG(insn); \
85 
86 /**********************************/
87 #if OPT_DIRECT_THREADED_CODE
88 
89 /* for GCC 3.4.x */
90 #define TC_DISPATCH(insn) \
91  INSN_DISPATCH_SIG(insn); \
92  RB_GNUC_EXTENSION_BLOCK(goto *(void const *)GET_CURRENT_INSN()); \
93  ;
94 
95 #else
96 /* token threaded code */
97 
98 /* dispatcher */
99 #if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) && __GNUC__ == 3
100 #define DISPATCH_ARCH_DEPEND_WAY(addr) \
101  __asm__ __volatile__("jmp *%0;\t# -- inserted by vm.h\t[length = 2]" : : "r" (addr))
102 
103 #else
104 #define DISPATCH_ARCH_DEPEND_WAY(addr) \
105  /* do nothing */
106 #endif
107 #define TC_DISPATCH(insn) \
108  DISPATCH_ARCH_DEPEND_WAY(insns_address_table[GET_CURRENT_INSN()]); \
109  INSN_DISPATCH_SIG(insn); \
110  RB_GNUC_EXTENSION_BLOCK(goto *insns_address_table[GET_CURRENT_INSN()]); \
111  rb_bug("tc error");
112 
113 #endif /* OPT_DIRECT_THREADED_CODE */
114 
115 #define END_INSN(insn) \
116  DEBUG_END_INSN(); \
117  TC_DISPATCH(insn);
118 
119 #define INSN_DISPATCH() \
120  TC_DISPATCH(__START__) \
121  {
122 
123 #define END_INSNS_DISPATCH() \
124  rb_bug("unknown insn: %"PRIdVALUE, GET_CURRENT_INSN()); \
125  } /* end of while loop */ \
126 
127 #define NEXT_INSN() TC_DISPATCH(__NEXT_INSN__)
128 
129 #define START_OF_ORIGINAL_INSN(x) start_of_##x:
130 #define DISPATCH_ORIGINAL_INSN(x) goto start_of_##x;
131 
132 /************************************************/
133 #else /* no threaded code */
134 /* most common method */
135 
136 #define INSN_ENTRY(insn) \
137 case BIN(insn):
138 
139 #define END_INSN(insn) \
140  DEBUG_END_INSN(); \
141  break;
142 
143 #define INSN_DISPATCH() \
144  while (1) { \
145  switch (GET_CURRENT_INSN()) {
146 
147 #define END_INSNS_DISPATCH() \
148 default: \
149  SDR(); \
150  rb_bug("unknown insn: %ld", GET_CURRENT_INSN()); \
151  } /* end of switch */ \
152  } /* end of while loop */ \
153 
154 #define NEXT_INSN() goto first
155 
156 #define START_OF_ORIGINAL_INSN(x) start_of_##x:
157 #define DISPATCH_ORIGINAL_INSN(x) goto start_of_##x;
158 
159 #endif
160 
161 #define VM_SP_CNT(ec, sp) ((sp) - (ec)->vm_stack)
162 
163 #ifdef MJIT_HEADER
164 #define THROW_EXCEPTION(exc) do { \
165  ec->errinfo = (VALUE)(exc); \
166  EC_JUMP_TAG(ec, ec->tag->state); \
167 } while (0)
168 #else
169 #if OPT_CALL_THREADED_CODE
170 #define THROW_EXCEPTION(exc) do { \
171  ec->errinfo = (VALUE)(exc); \
172  return 0; \
173 } while (0)
174 #else
175 #define THROW_EXCEPTION(exc) return (VALUE)(exc)
176 #endif
177 #endif
178 
179 #define SCREG(r) (reg_##r)
180 
181 #define VM_DEBUG_STACKOVERFLOW 0
182 
183 #if VM_DEBUG_STACKOVERFLOW
184 #define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin) \
185  WHEN_VM_STACK_OVERFLOWED(cfp, (cfp)->sp, margin) vm_stack_overflow_for_insn()
186 #else
187 #define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin)
188 #endif
189 
190 #define INSN_LABEL2(insn, name) INSN_LABEL_ ## insn ## _ ## name
191 #define INSN_LABEL(x) INSN_LABEL2(NAME_OF_CURRENT_INSN, x)
192 
193 #endif /* RUBY_VM_EXEC_H */
rb_iseq_struct
Definition: vm_core.h:456
VALUE
unsigned long VALUE
Definition: ruby.h:102
ISEQ
rb_iseq_t * ISEQ
Definition: vm_exec.h:18
OFFSET
long OFFSET
Definition: vm_exec.h:15
lindex_t
unsigned long lindex_t
Definition: vm_exec.h:16
GENTRY
VALUE GENTRY
Definition: vm_exec.h:17
error
const rb_iseq_t const char * error
Definition: rb_mjit_min_header-2.7.1.h:13511