Commit | Line | Data |
---|---|---|
37442d52 | 1 | # -#- buffer-read-only: t -#- |
a798dbf2 | 2 | # |
a6c40364 | 3 | # Copyright (c) 1996-1999 Malcolm Beattie |
a798dbf2 MB |
4 | # |
5 | # You may distribute under the terms of either the GNU General Public | |
6 | # License or the Artistic License, as specified in the README file. | |
7 | # | |
8 | # | |
9 | # | |
10 | # This file is autogenerated from bytecode.pl. Changes made here will be lost. | |
11 | # | |
12 | package B::Asmdata; | |
28b605d8 | 13 | |
a0edd7f8 | 14 | our $VERSION = '1.01'; |
28b605d8 | 15 | |
a798dbf2 MB |
16 | use Exporter; |
17 | @ISA = qw(Exporter); | |
18 | @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name); | |
17f410f9 | 19 | our(%insn_data, @insn_name, @optype, @specialsv_name); |
a798dbf2 | 20 | |
7934575e | 21 | @optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP); |
5c3c3f81 | 22 | @specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no (SV*)pWARN_ALL (SV*)pWARN_NONE (SV*)pWARN_STD); |
a798dbf2 MB |
23 | |
24 | # XXX insn_data is initialised this way because with a large | |
25 | # %insn_data = (foo => [...], bar => [...], ...) initialiser | |
26 | # I get a hard-to-track-down stack underflow and segfault. | |
ca04da08 | 27 | $insn_data{comment} = [35, \&PUT_comment_t, "GET_comment_t"]; |
a798dbf2 MB |
28 | $insn_data{nop} = [10, \&PUT_none, "GET_none"]; |
29 | $insn_data{ret} = [0, \&PUT_none, "GET_none"]; | |
ca04da08 GS |
30 | $insn_data{ldsv} = [1, \&PUT_svindex, "GET_svindex"]; |
31 | $insn_data{ldop} = [2, \&PUT_opindex, "GET_opindex"]; | |
a798dbf2 MB |
32 | $insn_data{stsv} = [3, \&PUT_U32, "GET_U32"]; |
33 | $insn_data{stop} = [4, \&PUT_U32, "GET_U32"]; | |
059a8bb7 JH |
34 | $insn_data{stpv} = [5, \&PUT_U32, "GET_U32"]; |
35 | $insn_data{ldspecsv} = [6, \&PUT_U8, "GET_U8"]; | |
566ece03 JH |
36 | $insn_data{ldspecsvx} = [7, \&PUT_U8, "GET_U8"]; |
37 | $insn_data{newsv} = [8, \&PUT_U8, "GET_U8"]; | |
38 | $insn_data{newsvx} = [9, \&PUT_U32, "GET_U32"]; | |
39 | $insn_data{newop} = [11, \&PUT_U8, "GET_U8"]; | |
40 | $insn_data{newopx} = [12, \&PUT_U16, "GET_U16"]; | |
41 | $insn_data{newopn} = [13, \&PUT_U8, "GET_U8"]; | |
42 | $insn_data{newpv} = [14, \&PUT_PV, "GET_PV"]; | |
113d5bd9 | 43 | $insn_data{pv_cur} = [15, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
566ece03 JH |
44 | $insn_data{pv_free} = [16, \&PUT_none, "GET_none"]; |
45 | $insn_data{sv_upgrade} = [17, \&PUT_U8, "GET_U8"]; | |
46 | $insn_data{sv_refcnt} = [18, \&PUT_U32, "GET_U32"]; | |
47 | $insn_data{sv_refcnt_add} = [19, \&PUT_I32, "GET_I32"]; | |
48 | $insn_data{sv_flags} = [20, \&PUT_U32, "GET_U32"]; | |
49 | $insn_data{xrv} = [21, \&PUT_svindex, "GET_svindex"]; | |
50 | $insn_data{xpv} = [22, \&PUT_none, "GET_none"]; | |
113d5bd9 JH |
51 | $insn_data{xpv_cur} = [23, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
52 | $insn_data{xpv_len} = [24, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
566ece03 JH |
53 | $insn_data{xiv} = [25, \&PUT_IV, "GET_IV"]; |
54 | $insn_data{xnv} = [26, \&PUT_NV, "GET_NV"]; | |
113d5bd9 JH |
55 | $insn_data{xlv_targoff} = [27, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
56 | $insn_data{xlv_targlen} = [28, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
566ece03 JH |
57 | $insn_data{xlv_targ} = [29, \&PUT_svindex, "GET_svindex"]; |
58 | $insn_data{xlv_type} = [30, \&PUT_U8, "GET_U8"]; | |
59 | $insn_data{xbm_useful} = [31, \&PUT_I32, "GET_I32"]; | |
60 | $insn_data{xbm_previous} = [32, \&PUT_U16, "GET_U16"]; | |
61 | $insn_data{xbm_rare} = [33, \&PUT_U8, "GET_U8"]; | |
62 | $insn_data{xfm_lines} = [34, \&PUT_IV, "GET_IV"]; | |
63 | $insn_data{xio_lines} = [36, \&PUT_IV, "GET_IV"]; | |
64 | $insn_data{xio_page} = [37, \&PUT_IV, "GET_IV"]; | |
65 | $insn_data{xio_page_len} = [38, \&PUT_IV, "GET_IV"]; | |
66 | $insn_data{xio_lines_left} = [39, \&PUT_IV, "GET_IV"]; | |
67 | $insn_data{xio_top_name} = [40, \&PUT_pvindex, "GET_pvindex"]; | |
68 | $insn_data{xio_top_gv} = [41, \&PUT_svindex, "GET_svindex"]; | |
69 | $insn_data{xio_fmt_name} = [42, \&PUT_pvindex, "GET_pvindex"]; | |
70 | $insn_data{xio_fmt_gv} = [43, \&PUT_svindex, "GET_svindex"]; | |
71 | $insn_data{xio_bottom_name} = [44, \&PUT_pvindex, "GET_pvindex"]; | |
72 | $insn_data{xio_bottom_gv} = [45, \&PUT_svindex, "GET_svindex"]; | |
73 | $insn_data{xio_subprocess} = [46, \&PUT_U16, "GET_U16"]; | |
74 | $insn_data{xio_type} = [47, \&PUT_U8, "GET_U8"]; | |
75 | $insn_data{xio_flags} = [48, \&PUT_U8, "GET_U8"]; | |
76 | $insn_data{xcv_xsubany} = [49, \&PUT_svindex, "GET_svindex"]; | |
77 | $insn_data{xcv_stash} = [50, \&PUT_svindex, "GET_svindex"]; | |
78 | $insn_data{xcv_start} = [51, \&PUT_opindex, "GET_opindex"]; | |
79 | $insn_data{xcv_root} = [52, \&PUT_opindex, "GET_opindex"]; | |
80 | $insn_data{xcv_gv} = [53, \&PUT_svindex, "GET_svindex"]; | |
81 | $insn_data{xcv_file} = [54, \&PUT_pvindex, "GET_pvindex"]; | |
113d5bd9 | 82 | $insn_data{xcv_depth} = [55, \&PUT_long, "GET_long"]; |
566ece03 JH |
83 | $insn_data{xcv_padlist} = [56, \&PUT_svindex, "GET_svindex"]; |
84 | $insn_data{xcv_outside} = [57, \&PUT_svindex, "GET_svindex"]; | |
85 | $insn_data{xcv_outside_seq} = [58, \&PUT_U32, "GET_U32"]; | |
86 | $insn_data{xcv_flags} = [59, \&PUT_U16, "GET_U16"]; | |
113d5bd9 | 87 | $insn_data{av_extend} = [60, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
566ece03 JH |
88 | $insn_data{av_pushx} = [61, \&PUT_svindex, "GET_svindex"]; |
89 | $insn_data{av_push} = [62, \&PUT_svindex, "GET_svindex"]; | |
113d5bd9 JH |
90 | $insn_data{xav_fill} = [63, \&PUT_PADOFFSET, "GET_PADOFFSET"]; |
91 | $insn_data{xav_max} = [64, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
11ca45c0 NC |
92 | $insn_data{xhv_riter} = [65, \&PUT_I32, "GET_I32"]; |
93 | $insn_data{xhv_name} = [66, \&PUT_pvindex, "GET_pvindex"]; | |
8d2f4536 NC |
94 | $insn_data{hv_store} = [67, \&PUT_svindex, "GET_svindex"]; |
95 | $insn_data{sv_magic} = [68, \&PUT_U8, "GET_U8"]; | |
96 | $insn_data{mg_obj} = [69, \&PUT_svindex, "GET_svindex"]; | |
97 | $insn_data{mg_private} = [70, \&PUT_U16, "GET_U16"]; | |
98 | $insn_data{mg_flags} = [71, \&PUT_U8, "GET_U8"]; | |
99 | $insn_data{mg_name} = [72, \&PUT_pvcontents, "GET_pvcontents"]; | |
100 | $insn_data{mg_namex} = [73, \&PUT_svindex, "GET_svindex"]; | |
101 | $insn_data{xmg_stash} = [74, \&PUT_svindex, "GET_svindex"]; | |
102 | $insn_data{gv_fetchpv} = [75, \&PUT_strconst, "GET_strconst"]; | |
103 | $insn_data{gv_fetchpvx} = [76, \&PUT_strconst, "GET_strconst"]; | |
104 | $insn_data{gv_stashpv} = [77, \&PUT_strconst, "GET_strconst"]; | |
105 | $insn_data{gv_stashpvx} = [78, \&PUT_strconst, "GET_strconst"]; | |
106 | $insn_data{gp_sv} = [79, \&PUT_svindex, "GET_svindex"]; | |
107 | $insn_data{gp_refcnt} = [80, \&PUT_U32, "GET_U32"]; | |
108 | $insn_data{gp_refcnt_add} = [81, \&PUT_I32, "GET_I32"]; | |
109 | $insn_data{gp_av} = [82, \&PUT_svindex, "GET_svindex"]; | |
110 | $insn_data{gp_hv} = [83, \&PUT_svindex, "GET_svindex"]; | |
111 | $insn_data{gp_cv} = [84, \&PUT_svindex, "GET_svindex"]; | |
112 | $insn_data{gp_file} = [85, \&PUT_pvindex, "GET_pvindex"]; | |
113 | $insn_data{gp_io} = [86, \&PUT_svindex, "GET_svindex"]; | |
114 | $insn_data{gp_form} = [87, \&PUT_svindex, "GET_svindex"]; | |
115 | $insn_data{gp_cvgen} = [88, \&PUT_U32, "GET_U32"]; | |
116 | $insn_data{gp_line} = [89, \&PUT_U32, "GET_U32"]; | |
117 | $insn_data{gp_share} = [90, \&PUT_svindex, "GET_svindex"]; | |
118 | $insn_data{xgv_flags} = [91, \&PUT_U8, "GET_U8"]; | |
119 | $insn_data{op_next} = [92, \&PUT_opindex, "GET_opindex"]; | |
120 | $insn_data{op_sibling} = [93, \&PUT_opindex, "GET_opindex"]; | |
121 | $insn_data{op_ppaddr} = [94, \&PUT_strconst, "GET_strconst"]; | |
122 | $insn_data{op_targ} = [95, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
123 | $insn_data{op_type} = [96, \&PUT_U16, "GET_U16"]; | |
124 | $insn_data{op_opt} = [97, \&PUT_U8, "GET_U8"]; | |
125 | $insn_data{op_static} = [98, \&PUT_U8, "GET_U8"]; | |
126 | $insn_data{op_flags} = [99, \&PUT_U8, "GET_U8"]; | |
127 | $insn_data{op_private} = [100, \&PUT_U8, "GET_U8"]; | |
128 | $insn_data{op_first} = [101, \&PUT_opindex, "GET_opindex"]; | |
129 | $insn_data{op_last} = [102, \&PUT_opindex, "GET_opindex"]; | |
130 | $insn_data{op_other} = [103, \&PUT_opindex, "GET_opindex"]; | |
131 | $insn_data{op_pmreplroot} = [104, \&PUT_opindex, "GET_opindex"]; | |
132 | $insn_data{op_pmreplstart} = [105, \&PUT_opindex, "GET_opindex"]; | |
133 | $insn_data{op_pmnext} = [106, \&PUT_opindex, "GET_opindex"]; | |
134 | $insn_data{op_pmstashpv} = [107, \&PUT_pvindex, "GET_pvindex"]; | |
135 | $insn_data{op_pmreplrootpo} = [108, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
136 | $insn_data{op_pmstash} = [109, \&PUT_svindex, "GET_svindex"]; | |
137 | $insn_data{op_pmreplrootgv} = [110, \&PUT_svindex, "GET_svindex"]; | |
138 | $insn_data{pregcomp} = [111, \&PUT_pvcontents, "GET_pvcontents"]; | |
139 | $insn_data{op_pmflags} = [112, \&PUT_U16, "GET_U16"]; | |
140 | $insn_data{op_pmpermflags} = [113, \&PUT_U16, "GET_U16"]; | |
141 | $insn_data{op_pmdynflags} = [114, \&PUT_U8, "GET_U8"]; | |
142 | $insn_data{op_sv} = [115, \&PUT_svindex, "GET_svindex"]; | |
143 | $insn_data{op_padix} = [116, \&PUT_PADOFFSET, "GET_PADOFFSET"]; | |
144 | $insn_data{op_pv} = [117, \&PUT_pvcontents, "GET_pvcontents"]; | |
145 | $insn_data{op_pv_tr} = [118, \&PUT_op_tr_array, "GET_op_tr_array"]; | |
146 | $insn_data{op_redoop} = [119, \&PUT_opindex, "GET_opindex"]; | |
147 | $insn_data{op_nextop} = [120, \&PUT_opindex, "GET_opindex"]; | |
148 | $insn_data{op_lastop} = [121, \&PUT_opindex, "GET_opindex"]; | |
149 | $insn_data{cop_label} = [122, \&PUT_pvindex, "GET_pvindex"]; | |
150 | $insn_data{cop_stashpv} = [123, \&PUT_pvindex, "GET_pvindex"]; | |
151 | $insn_data{cop_file} = [124, \&PUT_pvindex, "GET_pvindex"]; | |
152 | $insn_data{cop_stash} = [125, \&PUT_svindex, "GET_svindex"]; | |
153 | $insn_data{cop_filegv} = [126, \&PUT_svindex, "GET_svindex"]; | |
154 | $insn_data{cop_seq} = [127, \&PUT_U32, "GET_U32"]; | |
155 | $insn_data{cop_arybase} = [128, \&PUT_I32, "GET_I32"]; | |
156 | $insn_data{cop_line} = [129, \&PUT_U32, "GET_U32"]; | |
11bcd5da NC |
157 | $insn_data{cop_warnings} = [130, \&PUT_svindex, "GET_svindex"]; |
158 | $insn_data{main_start} = [131, \&PUT_opindex, "GET_opindex"]; | |
159 | $insn_data{main_root} = [132, \&PUT_opindex, "GET_opindex"]; | |
160 | $insn_data{main_cv} = [133, \&PUT_svindex, "GET_svindex"]; | |
161 | $insn_data{curpad} = [134, \&PUT_svindex, "GET_svindex"]; | |
162 | $insn_data{push_begin} = [135, \&PUT_svindex, "GET_svindex"]; | |
163 | $insn_data{push_init} = [136, \&PUT_svindex, "GET_svindex"]; | |
164 | $insn_data{push_end} = [137, \&PUT_svindex, "GET_svindex"]; | |
165 | $insn_data{curstash} = [138, \&PUT_svindex, "GET_svindex"]; | |
166 | $insn_data{defstash} = [139, \&PUT_svindex, "GET_svindex"]; | |
167 | $insn_data{data} = [140, \&PUT_U8, "GET_U8"]; | |
168 | $insn_data{incav} = [141, \&PUT_svindex, "GET_svindex"]; | |
169 | $insn_data{load_glob} = [142, \&PUT_svindex, "GET_svindex"]; | |
170 | $insn_data{regex_padav} = [143, \&PUT_svindex, "GET_svindex"]; | |
171 | $insn_data{dowarn} = [144, \&PUT_U8, "GET_U8"]; | |
172 | $insn_data{comppad_name} = [145, \&PUT_svindex, "GET_svindex"]; | |
173 | $insn_data{xgv_stash} = [146, \&PUT_svindex, "GET_svindex"]; | |
174 | $insn_data{signal} = [147, \&PUT_strconst, "GET_strconst"]; | |
175 | $insn_data{formfeed} = [148, \&PUT_svindex, "GET_svindex"]; | |
a798dbf2 MB |
176 | |
177 | my ($insn_name, $insn_data); | |
178 | while (($insn_name, $insn_data) = each %insn_data) { | |
179 | $insn_name[$insn_data->[0]] = $insn_name; | |
180 | } | |
181 | # Fill in any gaps | |
182 | @insn_name = map($_ || "unused", @insn_name); | |
183 | ||
184 | 1; | |
42d3a99d GS |
185 | |
186 | __END__ | |
187 | ||
188 | =head1 NAME | |
189 | ||
190 | B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode | |
191 | ||
192 | =head1 SYNOPSIS | |
193 | ||
4162ffa6 | 194 | use B::Asmdata qw(%insn_data @insn_name @optype @specialsv_name); |
42d3a99d GS |
195 | |
196 | =head1 DESCRIPTION | |
197 | ||
4162ffa6 MS |
198 | Provides information about Perl ops in order to generate bytecode via |
199 | a bunch of exported variables. Its mostly used by B::Assembler and | |
200 | B::Disassembler. | |
201 | ||
202 | =over 4 | |
203 | ||
204 | =item %insn_data | |
205 | ||
206 | my($bytecode_num, $put_sub, $get_meth) = @$insn_data{$op_name}; | |
207 | ||
208 | For a given $op_name (for example, 'cop_label', 'sv_flags', etc...) | |
209 | you get an array ref containing the bytecode number of the op, a | |
210 | reference to the subroutine used to 'PUT', and the name of the method | |
211 | used to 'GET'. | |
212 | ||
213 | =for _private | |
214 | Add more detail about what $put_sub and $get_meth are and how to use them. | |
215 | ||
216 | =item @insn_name | |
217 | ||
218 | my $op_name = $insn_name[$bytecode_num]; | |
219 | ||
220 | A simple mapping of the bytecode number to the name of the op. | |
221 | Suitable for using with %insn_data like so: | |
222 | ||
223 | my $op_info = $insn_data{$insn_name[$bytecode_num]}; | |
224 | ||
225 | =item @optype | |
226 | ||
227 | my $op_type = $optype[$op_type_num]; | |
228 | ||
229 | A simple mapping of the op type number to its type (like 'COP' or 'BINOP'). | |
230 | ||
231 | =item @specialsv_name | |
232 | ||
233 | my $sv_name = $specialsv_name[$sv_index]; | |
234 | ||
235 | Certain SV types are considered 'special'. They're represented by | |
3c4b39be | 236 | B::SPECIAL and are referred to by a number from the specialsv_list. |
4162ffa6 MS |
237 | This array maps that number back to the name of the SV (like 'Nullsv' |
238 | or '&PL_sv_undef'). | |
239 | ||
240 | =back | |
42d3a99d GS |
241 | |
242 | =head1 AUTHOR | |
243 | ||
244 | Malcolm Beattie, C<mbeattie@sable.ox.ac.uk> | |
245 | ||
246 | =cut | |
37442d52 RGS |
247 | |
248 | # ex: set ro: |