1N/A# Copyright (c) 1996-1999 Malcolm Beattie 1N/A# You may distribute under the terms of either the GNU General Public 1N/A# License or the Artistic License, as specified in the README file. 1N/A# This file is autogenerated from bytecode.pl. Changes made here will be lost. 1N/A# XXX insn_data is initialised this way because with a large 1N/A# %insn_data = (foo => [...], bar => [...], ...) initialiser 1N/A# I get a hard-to-track-down stack underflow and segfault. 1N/AB::Asmdata - Autogenerated data about Perl ops, used to generate bytecode 1N/A use B::Asmdata qw(%insn_data @insn_name @optype @specialsv_name); 1N/AProvides information about Perl ops in order to generate bytecode via 1N/Aa bunch of exported variables. Its mostly used by B::Assembler and 1N/A my($bytecode_num, $put_sub, $get_meth) = @$insn_data{$op_name}; 1N/AFor a given $op_name (for example, 'cop_label', 'sv_flags', etc...) 1N/Ayou get an array ref containing the bytecode number of the op, a 1N/Areference to the subroutine used to 'PUT', and the name of the method 1N/AAdd more detail about what $put_sub and $get_meth are and how to use them. 1N/A my $op_name = $insn_name[$bytecode_num]; 1N/AA simple mapping of the bytecode number to the name of the op. 1N/ASuitable for using with %insn_data like so: 1N/A my $op_info = $insn_data{$insn_name[$bytecode_num]}; 1N/A my $op_type = $optype[$op_type_num]; 1N/AA simple mapping of the op type number to its type (like 'COP' or 'BINOP'). 1N/A=item @specialsv_name 1N/A my $sv_name = $specialsv_name[$sv_index]; 1N/ACertain SV types are considered 'special'. They're represented by 1N/AB::SPECIAL and are refered to by a number from the specialsv_list. 1N/AThis array maps that number back to the name of the SV (like 'Nullsv' 1N/AMalcolm Beattie, C<mbeattie@sable.ox.ac.uk>