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