line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# -#- buffer-read-only: t -#- |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
# Copyright (c) 1996-1999 Malcolm Beattie |
4
|
|
|
|
|
|
|
# Copyright (c) 2008,2009,2010,2011,2012 Reini Urban |
5
|
|
|
|
|
|
|
# Copyright (c) 2011-2016 cPanel Inc |
6
|
|
|
|
|
|
|
# |
7
|
|
|
|
|
|
|
# You may distribute under the terms of either the GNU General Public |
8
|
|
|
|
|
|
|
# License or the Artistic License, as specified in the README file. |
9
|
|
|
|
|
|
|
# |
10
|
|
|
|
|
|
|
# |
11
|
|
|
|
|
|
|
# |
12
|
|
|
|
|
|
|
# This file is autogenerated from bytecode.pl. Changes made here will be lost. |
13
|
|
|
|
|
|
|
# It is specific for Perl 5.026000-nt only. |
14
|
|
|
|
|
|
|
# |
15
|
|
|
|
|
|
|
package B::Asmdata; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
our $VERSION = '1.04'; |
18
|
|
|
|
|
|
|
|
19
|
57
|
|
|
57
|
|
90382
|
use Exporter; |
|
57
|
|
|
|
|
157
|
|
|
57
|
|
|
|
|
5422
|
|
20
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
21
|
|
|
|
|
|
|
@EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name); |
22
|
|
|
|
|
|
|
our(%insn_data, @insn_name); |
23
|
|
|
|
|
|
|
|
24
|
57
|
|
|
57
|
|
442
|
use B qw(@optype @specialsv_name); |
|
57
|
|
|
|
|
137
|
|
|
57
|
|
|
|
|
169815
|
|
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
# XXX insn_data is initialised this way because with a large |
27
|
|
|
|
|
|
|
# %insn_data = (foo => [...], bar => [...], ...) initialiser |
28
|
|
|
|
|
|
|
# I get a hard-to-track-down stack underflow and segfault. |
29
|
|
|
|
|
|
|
$insn_data{comment} = [35, \&PUT_comment_t, "GET_comment_t"]; |
30
|
|
|
|
|
|
|
$insn_data{nop} = [10, \&PUT_none, "GET_none"]; |
31
|
|
|
|
|
|
|
$insn_data{ret} = [0, \&PUT_none, "GET_none"]; |
32
|
|
|
|
|
|
|
$insn_data{ldsv} = [1, \&PUT_svindex, "GET_svindex"]; |
33
|
|
|
|
|
|
|
$insn_data{ldop} = [2, \&PUT_opindex, "GET_opindex"]; |
34
|
|
|
|
|
|
|
$insn_data{stsv} = [3, \&PUT_U32, "GET_U32"]; |
35
|
|
|
|
|
|
|
$insn_data{stop} = [4, \&PUT_U32, "GET_U32"]; |
36
|
|
|
|
|
|
|
$insn_data{stpv} = [5, \&PUT_U32, "GET_U32"]; |
37
|
|
|
|
|
|
|
$insn_data{ldspecsv} = [6, \&PUT_U8, "GET_U8"]; |
38
|
|
|
|
|
|
|
$insn_data{ldspecsvx} = [7, \&PUT_U8, "GET_U8"]; |
39
|
|
|
|
|
|
|
$insn_data{newsv} = [8, \&PUT_U8, "GET_U8"]; |
40
|
|
|
|
|
|
|
$insn_data{newsvx} = [9, \&PUT_U32, "GET_U32"]; |
41
|
|
|
|
|
|
|
$insn_data{newop} = [11, \&PUT_U8, "GET_U8"]; |
42
|
|
|
|
|
|
|
$insn_data{newopx} = [12, \&PUT_U16, "GET_U16"]; |
43
|
|
|
|
|
|
|
$insn_data{newopn} = [13, \&PUT_U8, "GET_U8"]; |
44
|
|
|
|
|
|
|
$insn_data{newpv} = [14, \&PUT_PV, "GET_PV"]; |
45
|
|
|
|
|
|
|
$insn_data{pv_cur} = [15, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
46
|
|
|
|
|
|
|
$insn_data{pv_free} = [16, \&PUT_none, "GET_none"]; |
47
|
|
|
|
|
|
|
$insn_data{sv_upgrade} = [17, \&PUT_U8, "GET_U8"]; |
48
|
|
|
|
|
|
|
$insn_data{sv_refcnt} = [18, \&PUT_U32, "GET_U32"]; |
49
|
|
|
|
|
|
|
$insn_data{sv_refcnt_add} = [19, \&PUT_I32, "GET_I32"]; |
50
|
|
|
|
|
|
|
$insn_data{sv_flags} = [20, \&PUT_U32, "GET_U32"]; |
51
|
|
|
|
|
|
|
$insn_data{xrv} = [21, \&PUT_svindex, "GET_svindex"]; |
52
|
|
|
|
|
|
|
$insn_data{xpv} = [22, \&PUT_none, "GET_none"]; |
53
|
|
|
|
|
|
|
$insn_data{xpv_cur} = [23, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
54
|
|
|
|
|
|
|
$insn_data{xpv_len} = [24, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
55
|
|
|
|
|
|
|
$insn_data{xiv} = [25, \&PUT_IV, "GET_IV"]; |
56
|
|
|
|
|
|
|
$insn_data{xnv} = [26, \&PUT_NV, "GET_NV"]; |
57
|
|
|
|
|
|
|
$insn_data{xlv_targoff} = [27, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
58
|
|
|
|
|
|
|
$insn_data{xlv_targlen} = [28, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
59
|
|
|
|
|
|
|
$insn_data{xlv_targ} = [29, \&PUT_svindex, "GET_svindex"]; |
60
|
|
|
|
|
|
|
$insn_data{xlv_type} = [30, \&PUT_U8, "GET_U8"]; |
61
|
|
|
|
|
|
|
$insn_data{xbm_useful} = [31, \&PUT_I32, "GET_I32"]; |
62
|
|
|
|
|
|
|
$insn_data{xbm_previous} = [32, 0, "GET_U16"]; |
63
|
|
|
|
|
|
|
$insn_data{xbm_rare} = [33, 0, "GET_U8"]; |
64
|
|
|
|
|
|
|
$insn_data{xfm_lines} = [34, \&PUT_IV, "GET_IV"]; |
65
|
|
|
|
|
|
|
$insn_data{xio_lines} = [36, \&PUT_IV, "GET_IV"]; |
66
|
|
|
|
|
|
|
$insn_data{xio_page} = [37, \&PUT_IV, "GET_IV"]; |
67
|
|
|
|
|
|
|
$insn_data{xio_page_len} = [38, \&PUT_IV, "GET_IV"]; |
68
|
|
|
|
|
|
|
$insn_data{xio_lines_left} = [39, \&PUT_IV, "GET_IV"]; |
69
|
|
|
|
|
|
|
$insn_data{xio_top_name} = [40, \&PUT_pvindex, "GET_pvindex"]; |
70
|
|
|
|
|
|
|
$insn_data{xio_top_gv} = [41, \&PUT_svindex, "GET_svindex"]; |
71
|
|
|
|
|
|
|
$insn_data{xio_fmt_name} = [42, \&PUT_pvindex, "GET_pvindex"]; |
72
|
|
|
|
|
|
|
$insn_data{xio_fmt_gv} = [43, \&PUT_svindex, "GET_svindex"]; |
73
|
|
|
|
|
|
|
$insn_data{xio_bottom_name} = [44, \&PUT_pvindex, "GET_pvindex"]; |
74
|
|
|
|
|
|
|
$insn_data{xio_bottom_gv} = [45, \&PUT_svindex, "GET_svindex"]; |
75
|
|
|
|
|
|
|
$insn_data{xio_subprocess} = [46, 0, "GET_U16"]; |
76
|
|
|
|
|
|
|
$insn_data{xio_type} = [47, \&PUT_U8, "GET_U8"]; |
77
|
|
|
|
|
|
|
$insn_data{xio_flags} = [48, \&PUT_U8, "GET_U8"]; |
78
|
|
|
|
|
|
|
$insn_data{xcv_xsubany} = [49, \&PUT_svindex, "GET_svindex"]; |
79
|
|
|
|
|
|
|
$insn_data{xcv_stash} = [50, \&PUT_svindex, "GET_svindex"]; |
80
|
|
|
|
|
|
|
$insn_data{xcv_start} = [51, \&PUT_opindex, "GET_opindex"]; |
81
|
|
|
|
|
|
|
$insn_data{xcv_root} = [52, \&PUT_opindex, "GET_opindex"]; |
82
|
|
|
|
|
|
|
$insn_data{xcv_gv} = [53, \&PUT_svindex, "GET_svindex"]; |
83
|
|
|
|
|
|
|
$insn_data{xcv_file} = [54, \&PUT_pvindex, "GET_pvindex"]; |
84
|
|
|
|
|
|
|
$insn_data{xcv_depth} = [55, \&PUT_long, "GET_long"]; |
85
|
|
|
|
|
|
|
$insn_data{xcv_padlist} = [56, \&PUT_svindex, "GET_svindex"]; |
86
|
|
|
|
|
|
|
$insn_data{xcv_outside} = [57, \&PUT_svindex, "GET_svindex"]; |
87
|
|
|
|
|
|
|
$insn_data{xcv_outside_seq} = [58, \&PUT_U32, "GET_U32"]; |
88
|
|
|
|
|
|
|
$insn_data{xcv_flags} = [59, \&PUT_U16, "GET_U16"]; |
89
|
|
|
|
|
|
|
$insn_data{av_extend} = [60, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
90
|
|
|
|
|
|
|
$insn_data{av_pushx} = [61, \&PUT_svindex, "GET_svindex"]; |
91
|
|
|
|
|
|
|
$insn_data{av_push} = [62, 0, "GET_svindex"]; |
92
|
|
|
|
|
|
|
$insn_data{xav_fill} = [63, 0, "GET_PADOFFSET"]; |
93
|
|
|
|
|
|
|
$insn_data{xav_max} = [64, 0, "GET_PADOFFSET"]; |
94
|
|
|
|
|
|
|
$insn_data{xhv_riter} = [66, 0, "GET_I32"]; |
95
|
|
|
|
|
|
|
$insn_data{xhv_name} = [67, \&PUT_pvindex, "GET_pvindex"]; |
96
|
|
|
|
|
|
|
$insn_data{xhv_pmroot} = [68, 0, "GET_opindex"]; |
97
|
|
|
|
|
|
|
$insn_data{hv_store} = [69, \&PUT_svindex, "GET_svindex"]; |
98
|
|
|
|
|
|
|
$insn_data{sv_magic} = [70, \&PUT_U8, "GET_U8"]; |
99
|
|
|
|
|
|
|
$insn_data{mg_obj} = [71, \&PUT_svindex, "GET_svindex"]; |
100
|
|
|
|
|
|
|
$insn_data{mg_private} = [72, \&PUT_U16, "GET_U16"]; |
101
|
|
|
|
|
|
|
$insn_data{mg_flags} = [73, \&PUT_U8, "GET_U8"]; |
102
|
|
|
|
|
|
|
$insn_data{mg_name} = [74, \&PUT_pvcontents, "GET_pvcontents"]; |
103
|
|
|
|
|
|
|
$insn_data{mg_namex} = [75, \&PUT_svindex, "GET_svindex"]; |
104
|
|
|
|
|
|
|
$insn_data{xmg_stash} = [76, \&PUT_svindex, "GET_svindex"]; |
105
|
|
|
|
|
|
|
$insn_data{gv_fetchpv} = [77, \&PUT_strconst, "GET_strconst"]; |
106
|
|
|
|
|
|
|
$insn_data{gv_fetchpvx} = [78, \&PUT_strconst, "GET_strconst"]; |
107
|
|
|
|
|
|
|
$insn_data{gv_stashpv} = [79, \&PUT_strconst, "GET_strconst"]; |
108
|
|
|
|
|
|
|
$insn_data{gv_stashpvx} = [80, \&PUT_strconst, "GET_strconst"]; |
109
|
|
|
|
|
|
|
$insn_data{gp_sv} = [81, \&PUT_svindex, "GET_svindex"]; |
110
|
|
|
|
|
|
|
$insn_data{gp_refcnt} = [82, \&PUT_U32, "GET_U32"]; |
111
|
|
|
|
|
|
|
$insn_data{gp_refcnt_add} = [83, \&PUT_I32, "GET_I32"]; |
112
|
|
|
|
|
|
|
$insn_data{gp_av} = [84, \&PUT_svindex, "GET_svindex"]; |
113
|
|
|
|
|
|
|
$insn_data{gp_hv} = [85, \&PUT_svindex, "GET_svindex"]; |
114
|
|
|
|
|
|
|
$insn_data{gp_cv} = [86, \&PUT_svindex, "GET_svindex"]; |
115
|
|
|
|
|
|
|
$insn_data{gp_file} = [87, \&PUT_pvindex, "GET_pvindex"]; |
116
|
|
|
|
|
|
|
$insn_data{gp_io} = [88, \&PUT_svindex, "GET_svindex"]; |
117
|
|
|
|
|
|
|
$insn_data{gp_form} = [89, \&PUT_svindex, "GET_svindex"]; |
118
|
|
|
|
|
|
|
$insn_data{gp_cvgen} = [90, \&PUT_U32, "GET_U32"]; |
119
|
|
|
|
|
|
|
$insn_data{gp_line} = [91, \&PUT_U32, "GET_U32"]; |
120
|
|
|
|
|
|
|
$insn_data{gp_share} = [92, \&PUT_svindex, "GET_svindex"]; |
121
|
|
|
|
|
|
|
$insn_data{xgv_flags} = [93, \&PUT_U8, "GET_U8"]; |
122
|
|
|
|
|
|
|
$insn_data{op_next} = [94, \&PUT_opindex, "GET_opindex"]; |
123
|
|
|
|
|
|
|
$insn_data{op_sibling} = [95, \&PUT_opindex, "GET_opindex"]; |
124
|
|
|
|
|
|
|
$insn_data{op_ppaddr} = [96, \&PUT_strconst, "GET_strconst"]; |
125
|
|
|
|
|
|
|
$insn_data{op_targ} = [97, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
126
|
|
|
|
|
|
|
$insn_data{op_type} = [98, \&PUT_U16, "GET_U16"]; |
127
|
|
|
|
|
|
|
$insn_data{op_opt} = [99, \&PUT_U8, "GET_U8"]; |
128
|
|
|
|
|
|
|
$insn_data{op_flags} = [100, \&PUT_U8, "GET_U8"]; |
129
|
|
|
|
|
|
|
$insn_data{op_private} = [101, \&PUT_U8, "GET_U8"]; |
130
|
|
|
|
|
|
|
$insn_data{op_first} = [102, \&PUT_opindex, "GET_opindex"]; |
131
|
|
|
|
|
|
|
$insn_data{op_last} = [103, \&PUT_opindex, "GET_opindex"]; |
132
|
|
|
|
|
|
|
$insn_data{op_other} = [104, \&PUT_opindex, "GET_opindex"]; |
133
|
|
|
|
|
|
|
$insn_data{op_pmreplroot} = [105, \&PUT_opindex, "GET_opindex"]; |
134
|
|
|
|
|
|
|
$insn_data{op_pmreplstart} = [106, \&PUT_opindex, "GET_opindex"]; |
135
|
|
|
|
|
|
|
$insn_data{op_pmstashpv} = [108, 0, "GET_pvindex"]; |
136
|
|
|
|
|
|
|
$insn_data{op_pmstash} = [110, \&PUT_svindex, "GET_svindex"]; |
137
|
|
|
|
|
|
|
$insn_data{op_pmreplrootgv} = [111, \&PUT_svindex, "GET_svindex"]; |
138
|
|
|
|
|
|
|
$insn_data{pregcomp} = [112, \&PUT_pvcontents, "GET_pvcontents"]; |
139
|
|
|
|
|
|
|
$insn_data{op_pmflags} = [113, \&PUT_pmflags, "GET_pmflags"]; |
140
|
|
|
|
|
|
|
$insn_data{op_pmpermflags} = [114, 0, "GET_U16"]; |
141
|
|
|
|
|
|
|
$insn_data{op_pmdynflags} = [115, 0, "GET_U8"]; |
142
|
|
|
|
|
|
|
$insn_data{op_sv} = [116, \&PUT_svindex, "GET_svindex"]; |
143
|
|
|
|
|
|
|
$insn_data{op_padix} = [117, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
144
|
|
|
|
|
|
|
$insn_data{op_pv} = [118, \&PUT_pvcontents, "GET_pvcontents"]; |
145
|
|
|
|
|
|
|
$insn_data{op_pv_tr} = [119, \&PUT_op_tr_array, "GET_op_tr_array"]; |
146
|
|
|
|
|
|
|
$insn_data{op_redoop} = [120, \&PUT_opindex, "GET_opindex"]; |
147
|
|
|
|
|
|
|
$insn_data{op_nextop} = [121, \&PUT_opindex, "GET_opindex"]; |
148
|
|
|
|
|
|
|
$insn_data{op_lastop} = [122, \&PUT_opindex, "GET_opindex"]; |
149
|
|
|
|
|
|
|
$insn_data{cop_label} = [123, \&PUT_pvindex, "GET_pvindex"]; |
150
|
|
|
|
|
|
|
$insn_data{cop_stashpv} = [124, 0, "GET_pvindex"]; |
151
|
|
|
|
|
|
|
$insn_data{cop_file} = [125, 0, "GET_pvindex"]; |
152
|
|
|
|
|
|
|
$insn_data{cop_stash} = [126, \&PUT_svindex, "GET_svindex"]; |
153
|
|
|
|
|
|
|
$insn_data{cop_filegv} = [127, \&PUT_svindex, "GET_svindex"]; |
154
|
|
|
|
|
|
|
$insn_data{cop_seq} = [128, \&PUT_U32, "GET_U32"]; |
155
|
|
|
|
|
|
|
$insn_data{cop_arybase} = [129, 0, "GET_I32"]; |
156
|
|
|
|
|
|
|
$insn_data{cop_line} = [130, \&PUT_U32, "GET_U32"]; |
157
|
|
|
|
|
|
|
$insn_data{cop_io} = [131, 0, "GET_svindex"]; |
158
|
|
|
|
|
|
|
$insn_data{cop_warnings} = [132, \&PUT_svindex, "GET_svindex"]; |
159
|
|
|
|
|
|
|
$insn_data{main_start} = [133, \&PUT_opindex, "GET_opindex"]; |
160
|
|
|
|
|
|
|
$insn_data{main_root} = [134, \&PUT_opindex, "GET_opindex"]; |
161
|
|
|
|
|
|
|
$insn_data{main_cv} = [135, \&PUT_svindex, "GET_svindex"]; |
162
|
|
|
|
|
|
|
$insn_data{curpad} = [136, \&PUT_svindex, "GET_svindex"]; |
163
|
|
|
|
|
|
|
$insn_data{push_begin} = [137, \&PUT_svindex, "GET_svindex"]; |
164
|
|
|
|
|
|
|
$insn_data{push_init} = [138, \&PUT_svindex, "GET_svindex"]; |
165
|
|
|
|
|
|
|
$insn_data{push_end} = [139, \&PUT_svindex, "GET_svindex"]; |
166
|
|
|
|
|
|
|
$insn_data{curstash} = [140, \&PUT_svindex, "GET_svindex"]; |
167
|
|
|
|
|
|
|
$insn_data{defstash} = [141, \&PUT_svindex, "GET_svindex"]; |
168
|
|
|
|
|
|
|
$insn_data{data} = [142, \&PUT_U8, "GET_U8"]; |
169
|
|
|
|
|
|
|
$insn_data{incav} = [143, \&PUT_svindex, "GET_svindex"]; |
170
|
|
|
|
|
|
|
$insn_data{load_glob} = [144, \&PUT_svindex, "GET_svindex"]; |
171
|
|
|
|
|
|
|
$insn_data{dowarn} = [146, \&PUT_U8, "GET_U8"]; |
172
|
|
|
|
|
|
|
$insn_data{comppad_name} = [147, \&PUT_svindex, "GET_svindex"]; |
173
|
|
|
|
|
|
|
$insn_data{xgv_stash} = [148, \&PUT_svindex, "GET_svindex"]; |
174
|
|
|
|
|
|
|
$insn_data{signal} = [149, \&PUT_strconst, "GET_strconst"]; |
175
|
|
|
|
|
|
|
$insn_data{formfeed} = [150, 0, "GET_svindex"]; |
176
|
|
|
|
|
|
|
$insn_data{op_latefree} = [151, 0, "GET_U8"]; |
177
|
|
|
|
|
|
|
$insn_data{op_latefreed} = [152, 0, "GET_U8"]; |
178
|
|
|
|
|
|
|
$insn_data{op_attached} = [153, 0, "GET_U8"]; |
179
|
|
|
|
|
|
|
$insn_data{op_reflags} = [154, \&PUT_U32, "GET_U32"]; |
180
|
|
|
|
|
|
|
$insn_data{gv_fetchpvn_flags} = [157, \&PUT_U32, "GET_U32"]; |
181
|
|
|
|
|
|
|
$insn_data{xio_ifp} = [158, \&PUT_U8, "GET_U8"]; |
182
|
|
|
|
|
|
|
$insn_data{xpvshared} = [159, \&PUT_none, "GET_none"]; |
183
|
|
|
|
|
|
|
$insn_data{newpadlx} = [160, \&PUT_U8, "GET_U8"]; |
184
|
|
|
|
|
|
|
$insn_data{padl_name} = [161, \&PUT_svindex, "GET_svindex"]; |
185
|
|
|
|
|
|
|
$insn_data{padl_sym} = [162, \&PUT_svindex, "GET_svindex"]; |
186
|
|
|
|
|
|
|
$insn_data{xcv_name_hek} = [163, \&PUT_pvindex, "GET_pvindex"]; |
187
|
|
|
|
|
|
|
$insn_data{op_slabbed} = [164, \&PUT_U8, "GET_U8"]; |
188
|
|
|
|
|
|
|
$insn_data{op_savefree} = [165, \&PUT_U8, "GET_U8"]; |
189
|
|
|
|
|
|
|
$insn_data{op_static} = [166, \&PUT_U8, "GET_U8"]; |
190
|
|
|
|
|
|
|
$insn_data{op_folded} = [167, \&PUT_U8, "GET_U8"]; |
191
|
|
|
|
|
|
|
$insn_data{op_moresib} = [168, \&PUT_U8, "GET_U8"]; |
192
|
|
|
|
|
|
|
$insn_data{newpadnlx} = [169, \&PUT_U8, "GET_U8"]; |
193
|
|
|
|
|
|
|
$insn_data{padl_outid} = [170, \&PUT_U32, "GET_U32"]; |
194
|
|
|
|
|
|
|
$insn_data{padl_id} = [171, \&PUT_U32, "GET_U32"]; |
195
|
|
|
|
|
|
|
$insn_data{padnl_push} = [172, \&PUT_svindex, "GET_svindex"]; |
196
|
|
|
|
|
|
|
$insn_data{padnl_maxnamed} = [173, \&PUT_U32, "GET_U32"]; |
197
|
|
|
|
|
|
|
$insn_data{padnl_refcnt} = [174, \&PUT_U32, "GET_U32"]; |
198
|
|
|
|
|
|
|
$insn_data{newpadnx} = [175, \&PUT_strconst, "GET_strconst"]; |
199
|
|
|
|
|
|
|
$insn_data{padn_stash} = [176, \&PUT_svindex, "GET_svindex"]; |
200
|
|
|
|
|
|
|
$insn_data{padn_type} = [177, \&PUT_svindex, "GET_svindex"]; |
201
|
|
|
|
|
|
|
$insn_data{padn_seq_low} = [178, \&PUT_U32, "GET_U32"]; |
202
|
|
|
|
|
|
|
$insn_data{padn_seq_high} = [179, \&PUT_U32, "GET_U32"]; |
203
|
|
|
|
|
|
|
$insn_data{padn_refcnt} = [180, \&PUT_U32, "GET_U32"]; |
204
|
|
|
|
|
|
|
$insn_data{padn_pv} = [181, \&PUT_strconst, "GET_strconst"]; |
205
|
|
|
|
|
|
|
$insn_data{padn_flags} = [182, \&PUT_U8, "GET_U8"]; |
206
|
|
|
|
|
|
|
$insn_data{unop_aux} = [183, \&PUT_strconst, "GET_strconst"]; |
207
|
|
|
|
|
|
|
$insn_data{methop_methsv} = [184, \&PUT_svindex, "GET_svindex"]; |
208
|
|
|
|
|
|
|
$insn_data{methop_rclass} = [185, \&PUT_svindex, "GET_svindex"]; |
209
|
|
|
|
|
|
|
$insn_data{methop_rclass} = [186, 0, "GET_PADOFFSET"]; |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
my ($insn_name, $insn_data); |
212
|
|
|
|
|
|
|
while (($insn_name, $insn_data) = each %insn_data) { |
213
|
|
|
|
|
|
|
$insn_name[$insn_data->[0]] = $insn_name; |
214
|
|
|
|
|
|
|
} |
215
|
|
|
|
|
|
|
# Fill in any gaps |
216
|
|
|
|
|
|
|
@insn_name = map($_ || "unused", @insn_name); |
217
|
|
|
|
|
|
|
|
218
|
|
|
|
|
|
|
1; |
219
|
|
|
|
|
|
|
|
220
|
|
|
|
|
|
|
__END__ |