blob: 933eb5ae0ebd4c89630ec5dcd07e019d7ed76b41 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
/** -*-c-*-
This file contains instruction information for yarv instruction sequence.
----
This file is auto generated by insns2vm.rb
DO NOT TOUCH!
If you want to fix something, you must edit 'template/insns_info.inc.tmpl'
or tool/insns2vm.rb
*/
% TYPE_CHARS.each do |t, c|
#define <%=t%> '<%=c%>'
% end
static const unsigned short insn_name_info_offset[] = {
% insn_name_length = @insns.inject(0) do |ofs, insn|
<%= ofs %>,
% ofs + insn.name.size + 1
% end
};
ASSERT_VM_INSTRUCTION_SIZE(insn_name_info_offset);
static const char insn_name_info_base[<%=insn_name_length%>] = ""
% @insns.each do |insn|
"<%= insn.name %>\0"
% end
;
#define insn_name_info insn_name_info_base+insn_name_info_offset
static const char insn_operand_info[][8] = {
% @insns.each do |insn|
"\<%= (insn.opes.size+1).to_s(8) %>""<%
insn.opes.each {|type, _|
%><%=TYPE_CHARS.fetch(op2typesig(type))%><%
}%>",
% end
};
ASSERT_VM_INSTRUCTION_SIZE(insn_operand_info);
#ifdef USE_INSN_RET_NUM
static const unsigned short insn_stack_push_num_info[] = {
% @insns.each do |insn|
<%= insn.rets.size %>,
% end
};
ASSERT_VM_INSTRUCTION_SIZE(insn_stack_push_num_info);
#endif
#ifdef USE_INSN_STACK_INCREASE
static int
insn_stack_increase(int depth, int insn, VALUE *opes)
{
switch (insn) {
% @insns.each do |insn|
case BIN(<%= insn.name %>): {
<%= insn.sp_increase_c_expr %>
}
% end
default:
rb_bug("insn_sp_increase: unreachable");
}
return 0;
}
#endif
/* some utilities */
static int
insn_len(VALUE insn)
{
return (unsigned char)insn_operand_info[(int)insn][0];
}
static const char *
insn_name(VALUE insn)
{
return insn_name_info[(int)insn];
}
static const char *
insn_op_types(VALUE insn)
{
return insn_operand_info[(int)insn]+1;
}
static int
insn_op_type(VALUE insn, long pos)
{
int len = insn_len(insn) - 1;
if (pos < len) {
return insn_operand_info[(int)insn][pos+1];
}
else{
return 0;
}
}
#ifdef USE_INSN_RET_NUM
static int
insn_ret_num(VALUE insn)
{
return insn_stack_push_num_info[(int)insn];
}
#endif
|
