Commit | Line | Data |
a798dbf2 |
1 | # |
33b839e2 |
2 | # Copyright (c) 1996-1998 Malcolm Beattie |
a798dbf2 |
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 | use Exporter; |
13 | @ISA = qw(Exporter); |
14 | @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name); |
15 | use vars qw(%insn_data @insn_name @optype @specialsv_name); |
16 | |
17 | @optype = qw(OP UNOP BINOP LOGOP CONDOP LISTOP PMOP SVOP GVOP PVOP LOOP COP); |
18 | @specialsv_name = qw(Nullsv &sv_undef &sv_yes &sv_no); |
19 | |
20 | # XXX insn_data is initialised this way because with a large |
21 | # %insn_data = (foo => [...], bar => [...], ...) initialiser |
22 | # I get a hard-to-track-down stack underflow and segfault. |
ca04da08 |
23 | $insn_data{comment} = [35, \&PUT_comment_t, "GET_comment_t"]; |
a798dbf2 |
24 | $insn_data{nop} = [10, \&PUT_none, "GET_none"]; |
25 | $insn_data{ret} = [0, \&PUT_none, "GET_none"]; |
ca04da08 |
26 | $insn_data{ldsv} = [1, \&PUT_svindex, "GET_svindex"]; |
27 | $insn_data{ldop} = [2, \&PUT_opindex, "GET_opindex"]; |
a798dbf2 |
28 | $insn_data{stsv} = [3, \&PUT_U32, "GET_U32"]; |
29 | $insn_data{stop} = [4, \&PUT_U32, "GET_U32"]; |
30 | $insn_data{ldspecsv} = [5, \&PUT_U8, "GET_U8"]; |
31 | $insn_data{newsv} = [6, \&PUT_U8, "GET_U8"]; |
32 | $insn_data{newop} = [7, \&PUT_U8, "GET_U8"]; |
33 | $insn_data{newopn} = [8, \&PUT_U8, "GET_U8"]; |
34 | $insn_data{newpv} = [9, \&PUT_PV, "GET_PV"]; |
35 | $insn_data{pv_cur} = [11, \&PUT_U32, "GET_U32"]; |
36 | $insn_data{pv_free} = [12, \&PUT_none, "GET_none"]; |
37 | $insn_data{sv_upgrade} = [13, \&PUT_U8, "GET_U8"]; |
38 | $insn_data{sv_refcnt} = [14, \&PUT_U32, "GET_U32"]; |
39 | $insn_data{sv_refcnt_add} = [15, \&PUT_I32, "GET_I32"]; |
40 | $insn_data{sv_flags} = [16, \&PUT_U32, "GET_U32"]; |
ca04da08 |
41 | $insn_data{xrv} = [17, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
42 | $insn_data{xpv} = [18, \&PUT_none, "GET_none"]; |
43 | $insn_data{xiv32} = [19, \&PUT_I32, "GET_I32"]; |
44 | $insn_data{xiv64} = [20, \&PUT_IV64, "GET_IV64"]; |
45 | $insn_data{xnv} = [21, \&PUT_double, "GET_double"]; |
46 | $insn_data{xlv_targoff} = [22, \&PUT_U32, "GET_U32"]; |
47 | $insn_data{xlv_targlen} = [23, \&PUT_U32, "GET_U32"]; |
ca04da08 |
48 | $insn_data{xlv_targ} = [24, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
49 | $insn_data{xlv_type} = [25, \&PUT_U8, "GET_U8"]; |
50 | $insn_data{xbm_useful} = [26, \&PUT_I32, "GET_I32"]; |
51 | $insn_data{xbm_previous} = [27, \&PUT_U16, "GET_U16"]; |
52 | $insn_data{xbm_rare} = [28, \&PUT_U8, "GET_U8"]; |
53 | $insn_data{xfm_lines} = [29, \&PUT_I32, "GET_I32"]; |
54 | $insn_data{xio_lines} = [30, \&PUT_I32, "GET_I32"]; |
55 | $insn_data{xio_page} = [31, \&PUT_I32, "GET_I32"]; |
56 | $insn_data{xio_page_len} = [32, \&PUT_I32, "GET_I32"]; |
57 | $insn_data{xio_lines_left} = [33, \&PUT_I32, "GET_I32"]; |
58 | $insn_data{xio_top_name} = [34, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
59 | $insn_data{xio_top_gv} = [36, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
60 | $insn_data{xio_fmt_name} = [37, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
61 | $insn_data{xio_fmt_gv} = [38, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
62 | $insn_data{xio_bottom_name} = [39, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
63 | $insn_data{xio_bottom_gv} = [40, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
64 | $insn_data{xio_subprocess} = [41, \&PUT_U16, "GET_U16"]; |
65 | $insn_data{xio_type} = [42, \&PUT_U8, "GET_U8"]; |
66 | $insn_data{xio_flags} = [43, \&PUT_U8, "GET_U8"]; |
ca04da08 |
67 | $insn_data{xcv_stash} = [44, \&PUT_svindex, "GET_svindex"]; |
68 | $insn_data{xcv_start} = [45, \&PUT_opindex, "GET_opindex"]; |
69 | $insn_data{xcv_root} = [46, \&PUT_opindex, "GET_opindex"]; |
70 | $insn_data{xcv_gv} = [47, \&PUT_svindex, "GET_svindex"]; |
71 | $insn_data{xcv_filegv} = [48, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
72 | $insn_data{xcv_depth} = [49, \&PUT_I32, "GET_I32"]; |
ca04da08 |
73 | $insn_data{xcv_padlist} = [50, \&PUT_svindex, "GET_svindex"]; |
74 | $insn_data{xcv_outside} = [51, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
75 | $insn_data{xcv_flags} = [52, \&PUT_U8, "GET_U8"]; |
76 | $insn_data{av_extend} = [53, \&PUT_I32, "GET_I32"]; |
ca04da08 |
77 | $insn_data{av_push} = [54, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
78 | $insn_data{xav_fill} = [55, \&PUT_I32, "GET_I32"]; |
79 | $insn_data{xav_max} = [56, \&PUT_I32, "GET_I32"]; |
80 | $insn_data{xav_flags} = [57, \&PUT_U8, "GET_U8"]; |
81 | $insn_data{xhv_riter} = [58, \&PUT_I32, "GET_I32"]; |
82 | $insn_data{xhv_name} = [59, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
83 | $insn_data{hv_store} = [60, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
84 | $insn_data{sv_magic} = [61, \&PUT_U8, "GET_U8"]; |
ca04da08 |
85 | $insn_data{mg_obj} = [62, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
86 | $insn_data{mg_private} = [63, \&PUT_U16, "GET_U16"]; |
87 | $insn_data{mg_flags} = [64, \&PUT_U8, "GET_U8"]; |
88 | $insn_data{mg_pv} = [65, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
89 | $insn_data{xmg_stash} = [66, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
90 | $insn_data{gv_fetchpv} = [67, \&PUT_strconst, "GET_strconst"]; |
91 | $insn_data{gv_stashpv} = [68, \&PUT_strconst, "GET_strconst"]; |
ca04da08 |
92 | $insn_data{gp_sv} = [69, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
93 | $insn_data{gp_refcnt} = [70, \&PUT_U32, "GET_U32"]; |
94 | $insn_data{gp_refcnt_add} = [71, \&PUT_I32, "GET_I32"]; |
ca04da08 |
95 | $insn_data{gp_av} = [72, \&PUT_svindex, "GET_svindex"]; |
96 | $insn_data{gp_hv} = [73, \&PUT_svindex, "GET_svindex"]; |
97 | $insn_data{gp_cv} = [74, \&PUT_svindex, "GET_svindex"]; |
98 | $insn_data{gp_filegv} = [75, \&PUT_svindex, "GET_svindex"]; |
99 | $insn_data{gp_io} = [76, \&PUT_svindex, "GET_svindex"]; |
100 | $insn_data{gp_form} = [77, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
101 | $insn_data{gp_cvgen} = [78, \&PUT_U32, "GET_U32"]; |
102 | $insn_data{gp_line} = [79, \&PUT_U16, "GET_U16"]; |
ca04da08 |
103 | $insn_data{gp_share} = [80, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
104 | $insn_data{xgv_flags} = [81, \&PUT_U8, "GET_U8"]; |
ca04da08 |
105 | $insn_data{op_next} = [82, \&PUT_opindex, "GET_opindex"]; |
106 | $insn_data{op_sibling} = [83, \&PUT_opindex, "GET_opindex"]; |
a798dbf2 |
107 | $insn_data{op_ppaddr} = [84, \&PUT_strconst, "GET_strconst"]; |
108 | $insn_data{op_targ} = [85, \&PUT_U32, "GET_U32"]; |
109 | $insn_data{op_type} = [86, \&PUT_U16, "GET_U16"]; |
110 | $insn_data{op_seq} = [87, \&PUT_U16, "GET_U16"]; |
111 | $insn_data{op_flags} = [88, \&PUT_U8, "GET_U8"]; |
112 | $insn_data{op_private} = [89, \&PUT_U8, "GET_U8"]; |
ca04da08 |
113 | $insn_data{op_first} = [90, \&PUT_opindex, "GET_opindex"]; |
114 | $insn_data{op_last} = [91, \&PUT_opindex, "GET_opindex"]; |
115 | $insn_data{op_other} = [92, \&PUT_opindex, "GET_opindex"]; |
116 | $insn_data{op_true} = [93, \&PUT_opindex, "GET_opindex"]; |
117 | $insn_data{op_false} = [94, \&PUT_opindex, "GET_opindex"]; |
a798dbf2 |
118 | $insn_data{op_children} = [95, \&PUT_U32, "GET_U32"]; |
ca04da08 |
119 | $insn_data{op_pmreplroot} = [96, \&PUT_opindex, "GET_opindex"]; |
120 | $insn_data{op_pmreplrootgv} = [97, \&PUT_svindex, "GET_svindex"]; |
121 | $insn_data{op_pmreplstart} = [98, \&PUT_opindex, "GET_opindex"]; |
122 | $insn_data{op_pmnext} = [99, \&PUT_opindex, "GET_opindex"]; |
a798dbf2 |
123 | $insn_data{pregcomp} = [100, \&PUT_pvcontents, "GET_pvcontents"]; |
124 | $insn_data{op_pmflags} = [101, \&PUT_U16, "GET_U16"]; |
125 | $insn_data{op_pmpermflags} = [102, \&PUT_U16, "GET_U16"]; |
ca04da08 |
126 | $insn_data{op_sv} = [103, \&PUT_svindex, "GET_svindex"]; |
127 | $insn_data{op_gv} = [104, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
128 | $insn_data{op_pv} = [105, \&PUT_pvcontents, "GET_pvcontents"]; |
129 | $insn_data{op_pv_tr} = [106, \&PUT_op_tr_array, "GET_op_tr_array"]; |
ca04da08 |
130 | $insn_data{op_redoop} = [107, \&PUT_opindex, "GET_opindex"]; |
131 | $insn_data{op_nextop} = [108, \&PUT_opindex, "GET_opindex"]; |
132 | $insn_data{op_lastop} = [109, \&PUT_opindex, "GET_opindex"]; |
a798dbf2 |
133 | $insn_data{cop_label} = [110, \&PUT_pvcontents, "GET_pvcontents"]; |
ca04da08 |
134 | $insn_data{cop_stash} = [111, \&PUT_svindex, "GET_svindex"]; |
135 | $insn_data{cop_filegv} = [112, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
136 | $insn_data{cop_seq} = [113, \&PUT_U32, "GET_U32"]; |
137 | $insn_data{cop_arybase} = [114, \&PUT_I32, "GET_I32"]; |
138 | $insn_data{cop_line} = [115, \&PUT_U16, "GET_U16"]; |
ca04da08 |
139 | $insn_data{main_start} = [116, \&PUT_opindex, "GET_opindex"]; |
140 | $insn_data{main_root} = [117, \&PUT_opindex, "GET_opindex"]; |
141 | $insn_data{curpad} = [118, \&PUT_svindex, "GET_svindex"]; |
a798dbf2 |
142 | |
143 | my ($insn_name, $insn_data); |
144 | while (($insn_name, $insn_data) = each %insn_data) { |
145 | $insn_name[$insn_data->[0]] = $insn_name; |
146 | } |
147 | # Fill in any gaps |
148 | @insn_name = map($_ || "unused", @insn_name); |
149 | |
150 | 1; |
7f20e9dd |
151 | |
152 | __END__ |
153 | |
154 | =head1 NAME |
155 | |
156 | B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode |
157 | |
158 | =head1 SYNOPSIS |
159 | |
160 | use Asmdata; |
161 | |
162 | =head1 DESCRIPTION |
163 | |
164 | See F<ext/B/B/Asmdata.pm>. |
165 | |
166 | =head1 AUTHOR |
167 | |
168 | Malcolm Beattie, C<mbeattie@sable.ox.ac.uk> |
169 | |
170 | =cut |