This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change $=, $., $*, $%, and $- to be IVs instead of longs.
[perl5.git] / ext / B / B / Asmdata.pm
1 #
2 #      Copyright (c) 1996-1999 Malcolm Beattie
3 #
4 #      You may distribute under the terms of either the GNU General Public
5 #      License or the Artistic License, as specified in the README file.
6 #
7 #
8 #
9 # This file is autogenerated from bytecode.pl. Changes made here will be lost.
10 #
11 package B::Asmdata;
12
13 our $VERSION = '1.00';
14
15 use Exporter;
16 @ISA = qw(Exporter);
17 @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
18 our(%insn_data, @insn_name, @optype, @specialsv_name);
19
20 @optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP);
21 @specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no pWARN_ALL pWARN_NONE);
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.
26 $insn_data{comment} = [35, \&PUT_comment_t, "GET_comment_t"];
27 $insn_data{nop} = [10, \&PUT_none, "GET_none"];
28 $insn_data{ret} = [0, \&PUT_none, "GET_none"];
29 $insn_data{ldsv} = [1, \&PUT_svindex, "GET_svindex"];
30 $insn_data{ldop} = [2, \&PUT_opindex, "GET_opindex"];
31 $insn_data{stsv} = [3, \&PUT_U32, "GET_U32"];
32 $insn_data{stop} = [4, \&PUT_U32, "GET_U32"];
33 $insn_data{stpv} = [5, \&PUT_U32, "GET_U32"];
34 $insn_data{ldspecsv} = [6, \&PUT_U8, "GET_U8"];
35 $insn_data{newsv} = [7, \&PUT_U8, "GET_U8"];
36 $insn_data{newop} = [8, \&PUT_U8, "GET_U8"];
37 $insn_data{newopn} = [9, \&PUT_U8, "GET_U8"];
38 $insn_data{newpv} = [11, \&PUT_PV, "GET_PV"];
39 $insn_data{pv_cur} = [12, \&PUT_U32, "GET_U32"];
40 $insn_data{pv_free} = [13, \&PUT_none, "GET_none"];
41 $insn_data{sv_upgrade} = [14, \&PUT_U8, "GET_U8"];
42 $insn_data{sv_refcnt} = [15, \&PUT_U32, "GET_U32"];
43 $insn_data{sv_refcnt_add} = [16, \&PUT_I32, "GET_I32"];
44 $insn_data{sv_flags} = [17, \&PUT_U32, "GET_U32"];
45 $insn_data{xrv} = [18, \&PUT_svindex, "GET_svindex"];
46 $insn_data{xpv} = [19, \&PUT_none, "GET_none"];
47 $insn_data{xiv32} = [20, \&PUT_I32, "GET_I32"];
48 $insn_data{xiv64} = [21, \&PUT_IV64, "GET_IV64"];
49 $insn_data{xnv} = [22, \&PUT_NV, "GET_NV"];
50 $insn_data{xlv_targoff} = [23, \&PUT_U32, "GET_U32"];
51 $insn_data{xlv_targlen} = [24, \&PUT_U32, "GET_U32"];
52 $insn_data{xlv_targ} = [25, \&PUT_svindex, "GET_svindex"];
53 $insn_data{xlv_type} = [26, \&PUT_U8, "GET_U8"];
54 $insn_data{xbm_useful} = [27, \&PUT_I32, "GET_I32"];
55 $insn_data{xbm_previous} = [28, \&PUT_U16, "GET_U16"];
56 $insn_data{xbm_rare} = [29, \&PUT_U8, "GET_U8"];
57 $insn_data{xfm_lines} = [30, \&PUT_IV, "GET_IV"];
58 $insn_data{xio_lines} = [31, \&PUT_IV, "GET_IV"];
59 $insn_data{xio_page} = [32, \&PUT_IV, "GET_IV"];
60 $insn_data{xio_page_len} = [33, \&PUT_IV, "GET_IV"];
61 $insn_data{xio_lines_left} = [34, \&PUT_IV, "GET_IV"];
62 $insn_data{xio_top_name} = [36, \&PUT_pvcontents, "GET_pvcontents"];
63 $insn_data{xio_top_gv} = [37, \&PUT_svindex, "GET_svindex"];
64 $insn_data{xio_fmt_name} = [38, \&PUT_pvcontents, "GET_pvcontents"];
65 $insn_data{xio_fmt_gv} = [39, \&PUT_svindex, "GET_svindex"];
66 $insn_data{xio_bottom_name} = [40, \&PUT_pvcontents, "GET_pvcontents"];
67 $insn_data{xio_bottom_gv} = [41, \&PUT_svindex, "GET_svindex"];
68 $insn_data{xio_subprocess} = [42, \&PUT_U16, "GET_U16"];
69 $insn_data{xio_type} = [43, \&PUT_U8, "GET_U8"];
70 $insn_data{xio_flags} = [44, \&PUT_U8, "GET_U8"];
71 $insn_data{xcv_stash} = [45, \&PUT_svindex, "GET_svindex"];
72 $insn_data{xcv_start} = [46, \&PUT_opindex, "GET_opindex"];
73 $insn_data{xcv_root} = [47, \&PUT_opindex, "GET_opindex"];
74 $insn_data{xcv_gv} = [48, \&PUT_svindex, "GET_svindex"];
75 $insn_data{xcv_file} = [49, \&PUT_pvindex, "GET_pvindex"];
76 $insn_data{xcv_depth} = [50, \&PUT_I32, "GET_I32"];
77 $insn_data{xcv_padlist} = [51, \&PUT_svindex, "GET_svindex"];
78 $insn_data{xcv_outside} = [52, \&PUT_svindex, "GET_svindex"];
79 $insn_data{xcv_flags} = [53, \&PUT_U16, "GET_U16"];
80 $insn_data{av_extend} = [54, \&PUT_I32, "GET_I32"];
81 $insn_data{av_push} = [55, \&PUT_svindex, "GET_svindex"];
82 $insn_data{xav_fill} = [56, \&PUT_I32, "GET_I32"];
83 $insn_data{xav_max} = [57, \&PUT_I32, "GET_I32"];
84 $insn_data{xav_flags} = [58, \&PUT_U8, "GET_U8"];
85 $insn_data{xhv_riter} = [59, \&PUT_I32, "GET_I32"];
86 $insn_data{xhv_name} = [60, \&PUT_pvcontents, "GET_pvcontents"];
87 $insn_data{hv_store} = [61, \&PUT_svindex, "GET_svindex"];
88 $insn_data{sv_magic} = [62, \&PUT_U8, "GET_U8"];
89 $insn_data{mg_obj} = [63, \&PUT_svindex, "GET_svindex"];
90 $insn_data{mg_private} = [64, \&PUT_U16, "GET_U16"];
91 $insn_data{mg_flags} = [65, \&PUT_U8, "GET_U8"];
92 $insn_data{mg_pv} = [66, \&PUT_pvcontents, "GET_pvcontents"];
93 $insn_data{xmg_stash} = [67, \&PUT_svindex, "GET_svindex"];
94 $insn_data{gv_fetchpv} = [68, \&PUT_strconst, "GET_strconst"];
95 $insn_data{gv_stashpv} = [69, \&PUT_strconst, "GET_strconst"];
96 $insn_data{gp_sv} = [70, \&PUT_svindex, "GET_svindex"];
97 $insn_data{gp_refcnt} = [71, \&PUT_U32, "GET_U32"];
98 $insn_data{gp_refcnt_add} = [72, \&PUT_I32, "GET_I32"];
99 $insn_data{gp_av} = [73, \&PUT_svindex, "GET_svindex"];
100 $insn_data{gp_hv} = [74, \&PUT_svindex, "GET_svindex"];
101 $insn_data{gp_cv} = [75, \&PUT_svindex, "GET_svindex"];
102 $insn_data{gp_file} = [76, \&PUT_pvindex, "GET_pvindex"];
103 $insn_data{gp_io} = [77, \&PUT_svindex, "GET_svindex"];
104 $insn_data{gp_form} = [78, \&PUT_svindex, "GET_svindex"];
105 $insn_data{gp_cvgen} = [79, \&PUT_U32, "GET_U32"];
106 $insn_data{gp_line} = [80, \&PUT_U16, "GET_U16"];
107 $insn_data{gp_share} = [81, \&PUT_svindex, "GET_svindex"];
108 $insn_data{xgv_flags} = [82, \&PUT_U8, "GET_U8"];
109 $insn_data{op_next} = [83, \&PUT_opindex, "GET_opindex"];
110 $insn_data{op_sibling} = [84, \&PUT_opindex, "GET_opindex"];
111 $insn_data{op_ppaddr} = [85, \&PUT_strconst, "GET_strconst"];
112 $insn_data{op_targ} = [86, \&PUT_U32, "GET_U32"];
113 $insn_data{op_type} = [87, \&PUT_U16, "GET_U16"];
114 $insn_data{op_seq} = [88, \&PUT_U16, "GET_U16"];
115 $insn_data{op_flags} = [89, \&PUT_U8, "GET_U8"];
116 $insn_data{op_private} = [90, \&PUT_U8, "GET_U8"];
117 $insn_data{op_first} = [91, \&PUT_opindex, "GET_opindex"];
118 $insn_data{op_last} = [92, \&PUT_opindex, "GET_opindex"];
119 $insn_data{op_other} = [93, \&PUT_opindex, "GET_opindex"];
120 $insn_data{op_pmreplroot} = [94, \&PUT_opindex, "GET_opindex"];
121 $insn_data{op_pmreplrootgv} = [95, \&PUT_svindex, "GET_svindex"];
122 $insn_data{op_pmreplstart} = [96, \&PUT_opindex, "GET_opindex"];
123 $insn_data{op_pmnext} = [97, \&PUT_opindex, "GET_opindex"];
124 $insn_data{pregcomp} = [98, \&PUT_pvcontents, "GET_pvcontents"];
125 $insn_data{op_pmflags} = [99, \&PUT_U16, "GET_U16"];
126 $insn_data{op_pmpermflags} = [100, \&PUT_U16, "GET_U16"];
127 $insn_data{op_sv} = [101, \&PUT_svindex, "GET_svindex"];
128 $insn_data{op_padix} = [102, \&PUT_U32, "GET_U32"];
129 $insn_data{op_pv} = [103, \&PUT_pvcontents, "GET_pvcontents"];
130 $insn_data{op_pv_tr} = [104, \&PUT_op_tr_array, "GET_op_tr_array"];
131 $insn_data{op_redoop} = [105, \&PUT_opindex, "GET_opindex"];
132 $insn_data{op_nextop} = [106, \&PUT_opindex, "GET_opindex"];
133 $insn_data{op_lastop} = [107, \&PUT_opindex, "GET_opindex"];
134 $insn_data{cop_label} = [108, \&PUT_pvindex, "GET_pvindex"];
135 $insn_data{cop_stashpv} = [109, \&PUT_pvindex, "GET_pvindex"];
136 $insn_data{cop_file} = [110, \&PUT_pvindex, "GET_pvindex"];
137 $insn_data{cop_seq} = [111, \&PUT_U32, "GET_U32"];
138 $insn_data{cop_arybase} = [112, \&PUT_I32, "GET_I32"];
139 $insn_data{cop_line} = [113, \&PUT_U16, "GET_U16"];
140 $insn_data{cop_warnings} = [114, \&PUT_svindex, "GET_svindex"];
141 $insn_data{main_start} = [115, \&PUT_opindex, "GET_opindex"];
142 $insn_data{main_root} = [116, \&PUT_opindex, "GET_opindex"];
143 $insn_data{curpad} = [117, \&PUT_svindex, "GET_svindex"];
144 $insn_data{push_begin} = [118, \&PUT_svindex, "GET_svindex"];
145 $insn_data{push_init} = [119, \&PUT_svindex, "GET_svindex"];
146 $insn_data{push_end} = [120, \&PUT_svindex, "GET_svindex"];
147
148 my ($insn_name, $insn_data);
149 while (($insn_name, $insn_data) = each %insn_data) {
150     $insn_name[$insn_data->[0]] = $insn_name;
151 }
152 # Fill in any gaps
153 @insn_name = map($_ || "unused", @insn_name);
154
155 1;
156
157 __END__
158
159 =head1 NAME
160
161 B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode
162
163 =head1 SYNOPSIS
164
165         use Asmdata;
166
167 =head1 DESCRIPTION
168
169 See F<ext/B/B/Asmdata.pm>.
170
171 =head1 AUTHOR
172
173 Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
174
175 =cut