File Coverage

blib/lib/B/Asmdata.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


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__