This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Given that @optype and @specialsv_name are hard coded tables, it seems
[perl5.git] / ext / B / B / Asmdata.pm
diff --git a/ext/B/B/Asmdata.pm b/ext/B/B/Asmdata.pm
index 6b2eac9..bbea25f 100644 (file)
--- a/ext/B/B/Asmdata.pm
+++ b/ext/B/B/Asmdata.pm
@@ -11,15 +11,14 @@
 #
 package B::Asmdata;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 use Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
-our(%insn_data, @insn_name, @optype, @specialsv_name);
+our(%insn_data, @insn_name);
 
-@optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP);
-@specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no pWARN_ALL pWARN_NONE);
+use B qw(@optype @specialsv_name);
 
 # XXX insn_data is initialised this way because with a large
 # %insn_data = (foo => [...], bar => [...], ...) initialiser
@@ -34,15 +33,15 @@ $insn_data{stop} = [4, \&PUT_U32, "GET_U32"];
 $insn_data{stpv} = [5, \&PUT_U32, "GET_U32"];
 $insn_data{ldspecsv} = [6, \&PUT_U8, "GET_U8"];
 $insn_data{ldspecsvx} = [7, \&PUT_U8, "GET_U8"];
-$insn_data{newsv} = [8, \&PUT_U8, "GET_U8"];
-$insn_data{newsvx} = [9, \&PUT_U32, "GET_U32"];
+$insn_data{newsv} = [8, \&PUT_svtype, "GET_svtype"];
+$insn_data{newsvx} = [9, \&PUT_svtype, "GET_svtype"];
 $insn_data{newop} = [11, \&PUT_U8, "GET_U8"];
 $insn_data{newopx} = [12, \&PUT_U16, "GET_U16"];
 $insn_data{newopn} = [13, \&PUT_U8, "GET_U8"];
 $insn_data{newpv} = [14, \&PUT_PV, "GET_PV"];
 $insn_data{pv_cur} = [15, \&PUT_PADOFFSET, "GET_PADOFFSET"];
 $insn_data{pv_free} = [16, \&PUT_none, "GET_none"];
-$insn_data{sv_upgrade} = [17, \&PUT_U8, "GET_U8"];
+$insn_data{sv_upgrade} = [17, \&PUT_svtype, "GET_svtype"];
 $insn_data{sv_refcnt} = [18, \&PUT_U32, "GET_U32"];
 $insn_data{sv_refcnt_add} = [19, \&PUT_I32, "GET_I32"];
 $insn_data{sv_flags} = [20, \&PUT_U32, "GET_U32"];
@@ -91,90 +90,86 @@ $insn_data{xav_fill} = [63, \&PUT_PADOFFSET, "GET_PADOFFSET"];
 $insn_data{xav_max} = [64, \&PUT_PADOFFSET, "GET_PADOFFSET"];
 $insn_data{xhv_riter} = [65, \&PUT_I32, "GET_I32"];
 $insn_data{xhv_name} = [66, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{xhv_pmroot} = [67, \&PUT_opindex, "GET_opindex"];
-$insn_data{hv_store} = [68, \&PUT_svindex, "GET_svindex"];
-$insn_data{sv_magic} = [69, \&PUT_U8, "GET_U8"];
-$insn_data{mg_obj} = [70, \&PUT_svindex, "GET_svindex"];
-$insn_data{mg_private} = [71, \&PUT_U16, "GET_U16"];
-$insn_data{mg_flags} = [72, \&PUT_U8, "GET_U8"];
-$insn_data{mg_name} = [73, \&PUT_pvcontents, "GET_pvcontents"];
-$insn_data{mg_namex} = [74, \&PUT_svindex, "GET_svindex"];
-$insn_data{xmg_stash} = [75, \&PUT_svindex, "GET_svindex"];
-$insn_data{gv_fetchpv} = [76, \&PUT_strconst, "GET_strconst"];
-$insn_data{gv_fetchpvx} = [77, \&PUT_strconst, "GET_strconst"];
-$insn_data{gv_stashpv} = [78, \&PUT_strconst, "GET_strconst"];
-$insn_data{gv_stashpvx} = [79, \&PUT_strconst, "GET_strconst"];
-$insn_data{gp_sv} = [80, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_refcnt} = [81, \&PUT_U32, "GET_U32"];
-$insn_data{gp_refcnt_add} = [82, \&PUT_I32, "GET_I32"];
-$insn_data{gp_av} = [83, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_hv} = [84, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_cv} = [85, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_file} = [86, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{gp_io} = [87, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_form} = [88, \&PUT_svindex, "GET_svindex"];
-$insn_data{gp_cvgen} = [89, \&PUT_U32, "GET_U32"];
-$insn_data{gp_line} = [90, \&PUT_U32, "GET_U32"];
-$insn_data{gp_share} = [91, \&PUT_svindex, "GET_svindex"];
-$insn_data{xgv_flags} = [92, \&PUT_U8, "GET_U8"];
-$insn_data{op_next} = [93, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_sibling} = [94, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_ppaddr} = [95, \&PUT_strconst, "GET_strconst"];
-$insn_data{op_targ} = [96, \&PUT_PADOFFSET, "GET_PADOFFSET"];
-$insn_data{op_type} = [97, \&PUT_U16, "GET_U16"];
-$insn_data{op_opt} = [98, \&PUT_U8, "GET_U8"];
-$insn_data{op_static} = [99, \&PUT_U8, "GET_U8"];
-$insn_data{op_flags} = [100, \&PUT_U8, "GET_U8"];
-$insn_data{op_private} = [101, \&PUT_U8, "GET_U8"];
-$insn_data{op_first} = [102, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_last} = [103, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_other} = [104, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_pmreplroot} = [105, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_pmreplstart} = [106, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_pmnext} = [107, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_pmstashpv} = [108, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{op_pmreplrootpo} = [109, \&PUT_PADOFFSET, "GET_PADOFFSET"];
-$insn_data{op_pmstash} = [110, \&PUT_svindex, "GET_svindex"];
-$insn_data{op_pmreplrootgv} = [111, \&PUT_svindex, "GET_svindex"];
-$insn_data{pregcomp} = [112, \&PUT_pvcontents, "GET_pvcontents"];
-$insn_data{op_pmflags} = [113, \&PUT_U16, "GET_U16"];
-$insn_data{op_pmpermflags} = [114, \&PUT_U16, "GET_U16"];
-$insn_data{op_pmdynflags} = [115, \&PUT_U8, "GET_U8"];
-$insn_data{op_sv} = [116, \&PUT_svindex, "GET_svindex"];
-$insn_data{op_padix} = [117, \&PUT_PADOFFSET, "GET_PADOFFSET"];
-$insn_data{op_pv} = [118, \&PUT_pvcontents, "GET_pvcontents"];
-$insn_data{op_pv_tr} = [119, \&PUT_op_tr_array, "GET_op_tr_array"];
-$insn_data{op_redoop} = [120, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_nextop} = [121, \&PUT_opindex, "GET_opindex"];
-$insn_data{op_lastop} = [122, \&PUT_opindex, "GET_opindex"];
-$insn_data{cop_label} = [123, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{cop_stashpv} = [124, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{cop_file} = [125, \&PUT_pvindex, "GET_pvindex"];
-$insn_data{cop_stash} = [126, \&PUT_svindex, "GET_svindex"];
-$insn_data{cop_filegv} = [127, \&PUT_svindex, "GET_svindex"];
-$insn_data{cop_seq} = [128, \&PUT_U32, "GET_U32"];
-$insn_data{cop_arybase} = [129, \&PUT_I32, "GET_I32"];
-$insn_data{cop_line} = [130, \&PUT_U32, "GET_U32"];
-$insn_data{cop_io} = [131, \&PUT_svindex, "GET_svindex"];
-$insn_data{cop_warnings} = [132, \&PUT_svindex, "GET_svindex"];
-$insn_data{main_start} = [133, \&PUT_opindex, "GET_opindex"];
-$insn_data{main_root} = [134, \&PUT_opindex, "GET_opindex"];
-$insn_data{main_cv} = [135, \&PUT_svindex, "GET_svindex"];
-$insn_data{curpad} = [136, \&PUT_svindex, "GET_svindex"];
-$insn_data{push_begin} = [137, \&PUT_svindex, "GET_svindex"];
-$insn_data{push_init} = [138, \&PUT_svindex, "GET_svindex"];
-$insn_data{push_end} = [139, \&PUT_svindex, "GET_svindex"];
-$insn_data{curstash} = [140, \&PUT_svindex, "GET_svindex"];
-$insn_data{defstash} = [141, \&PUT_svindex, "GET_svindex"];
-$insn_data{data} = [142, \&PUT_U8, "GET_U8"];
-$insn_data{incav} = [143, \&PUT_svindex, "GET_svindex"];
-$insn_data{load_glob} = [144, \&PUT_svindex, "GET_svindex"];
-$insn_data{regex_padav} = [145, \&PUT_svindex, "GET_svindex"];
-$insn_data{dowarn} = [146, \&PUT_U8, "GET_U8"];
-$insn_data{comppad_name} = [147, \&PUT_svindex, "GET_svindex"];
-$insn_data{xgv_stash} = [148, \&PUT_svindex, "GET_svindex"];
-$insn_data{signal} = [149, \&PUT_strconst, "GET_strconst"];
-$insn_data{formfeed} = [150, \&PUT_svindex, "GET_svindex"];
+$insn_data{hv_store} = [67, \&PUT_svindex, "GET_svindex"];
+$insn_data{sv_magic} = [68, \&PUT_U8, "GET_U8"];
+$insn_data{mg_obj} = [69, \&PUT_svindex, "GET_svindex"];
+$insn_data{mg_private} = [70, \&PUT_U16, "GET_U16"];
+$insn_data{mg_flags} = [71, \&PUT_U8, "GET_U8"];
+$insn_data{mg_name} = [72, \&PUT_pvcontents, "GET_pvcontents"];
+$insn_data{mg_namex} = [73, \&PUT_svindex, "GET_svindex"];
+$insn_data{xmg_stash} = [74, \&PUT_svindex, "GET_svindex"];
+$insn_data{gv_fetchpv} = [75, \&PUT_strconst, "GET_strconst"];
+$insn_data{gv_fetchpvx} = [76, \&PUT_strconst, "GET_strconst"];
+$insn_data{gv_stashpv} = [77, \&PUT_strconst, "GET_strconst"];
+$insn_data{gv_stashpvx} = [78, \&PUT_strconst, "GET_strconst"];
+$insn_data{gp_sv} = [79, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_refcnt} = [80, \&PUT_U32, "GET_U32"];
+$insn_data{gp_refcnt_add} = [81, \&PUT_I32, "GET_I32"];
+$insn_data{gp_av} = [82, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_hv} = [83, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_cv} = [84, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_file} = [85, \&PUT_pvindex, "GET_pvindex"];
+$insn_data{gp_io} = [86, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_form} = [87, \&PUT_svindex, "GET_svindex"];
+$insn_data{gp_cvgen} = [88, \&PUT_U32, "GET_U32"];
+$insn_data{gp_line} = [89, \&PUT_U32, "GET_U32"];
+$insn_data{gp_share} = [90, \&PUT_svindex, "GET_svindex"];
+$insn_data{xgv_flags} = [91, \&PUT_U8, "GET_U8"];
+$insn_data{op_next} = [92, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_sibling} = [93, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_ppaddr} = [94, \&PUT_strconst, "GET_strconst"];
+$insn_data{op_targ} = [95, \&PUT_PADOFFSET, "GET_PADOFFSET"];
+$insn_data{op_type} = [96, \&PUT_U16, "GET_U16"];
+$insn_data{op_opt} = [97, \&PUT_U8, "GET_U8"];
+$insn_data{op_static} = [98, \&PUT_U8, "GET_U8"];
+$insn_data{op_flags} = [99, \&PUT_U8, "GET_U8"];
+$insn_data{op_private} = [100, \&PUT_U8, "GET_U8"];
+$insn_data{op_first} = [101, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_last} = [102, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_other} = [103, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_pmreplroot} = [104, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_pmreplstart} = [105, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_pmnext} = [106, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_pmstashpv} = [107, \&PUT_pvindex, "GET_pvindex"];
+$insn_data{op_pmreplrootpo} = [108, \&PUT_PADOFFSET, "GET_PADOFFSET"];
+$insn_data{op_pmstash} = [109, \&PUT_svindex, "GET_svindex"];
+$insn_data{op_pmreplrootgv} = [110, \&PUT_svindex, "GET_svindex"];
+$insn_data{pregcomp} = [111, \&PUT_pvcontents, "GET_pvcontents"];
+$insn_data{op_pmflags} = [112, \&PUT_U16, "GET_U16"];
+$insn_data{op_sv} = [113, \&PUT_svindex, "GET_svindex"];
+$insn_data{op_padix} = [114, \&PUT_PADOFFSET, "GET_PADOFFSET"];
+$insn_data{op_pv} = [115, \&PUT_pvcontents, "GET_pvcontents"];
+$insn_data{op_pv_tr} = [116, \&PUT_op_tr_array, "GET_op_tr_array"];
+$insn_data{op_redoop} = [117, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_nextop} = [118, \&PUT_opindex, "GET_opindex"];
+$insn_data{op_lastop} = [119, \&PUT_opindex, "GET_opindex"];
+$insn_data{cop_label} = [120, \&PUT_pvindex, "GET_pvindex"];
+$insn_data{cop_stashpv} = [121, \&PUT_pvindex, "GET_pvindex"];
+$insn_data{cop_file} = [122, \&PUT_pvindex, "GET_pvindex"];
+$insn_data{cop_stash} = [123, \&PUT_svindex, "GET_svindex"];
+$insn_data{cop_filegv} = [124, \&PUT_svindex, "GET_svindex"];
+$insn_data{cop_seq} = [125, \&PUT_U32, "GET_U32"];
+$insn_data{cop_arybase} = [126, \&PUT_I32, "GET_I32"];
+$insn_data{cop_line} = [127, \&PUT_U32, "GET_U32"];
+$insn_data{cop_warnings} = [128, \&PUT_svindex, "GET_svindex"];
+$insn_data{main_start} = [129, \&PUT_opindex, "GET_opindex"];
+$insn_data{main_root} = [130, \&PUT_opindex, "GET_opindex"];
+$insn_data{main_cv} = [131, \&PUT_svindex, "GET_svindex"];
+$insn_data{curpad} = [132, \&PUT_svindex, "GET_svindex"];
+$insn_data{push_begin} = [133, \&PUT_svindex, "GET_svindex"];
+$insn_data{push_init} = [134, \&PUT_svindex, "GET_svindex"];
+$insn_data{push_end} = [135, \&PUT_svindex, "GET_svindex"];
+$insn_data{curstash} = [136, \&PUT_svindex, "GET_svindex"];
+$insn_data{defstash} = [137, \&PUT_svindex, "GET_svindex"];
+$insn_data{data} = [138, \&PUT_U8, "GET_U8"];
+$insn_data{incav} = [139, \&PUT_svindex, "GET_svindex"];
+$insn_data{load_glob} = [140, \&PUT_svindex, "GET_svindex"];
+$insn_data{regex_padav} = [141, \&PUT_svindex, "GET_svindex"];
+$insn_data{dowarn} = [142, \&PUT_U8, "GET_U8"];
+$insn_data{comppad_name} = [143, \&PUT_svindex, "GET_svindex"];
+$insn_data{xgv_stash} = [144, \&PUT_svindex, "GET_svindex"];
+$insn_data{signal} = [145, \&PUT_strconst, "GET_strconst"];
+$insn_data{formfeed} = [146, \&PUT_svindex, "GET_svindex"];
 
 my ($insn_name, $insn_data);
 while (($insn_name, $insn_data) = each %insn_data) {
@@ -189,7 +184,7 @@ __END__
 
 =head1 NAME
 
-B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode
+B::Asmdata - Autogenerated data about Perl ops
 
 =head1 SYNOPSIS
 
@@ -235,7 +230,7 @@ A simple mapping of the op type number to its type (like 'COP' or 'BINOP').
   my $sv_name = $specialsv_name[$sv_index];
 
 Certain SV types are considered 'special'.  They're represented by
-B::SPECIAL and are refered to by a number from the specialsv_list.
+B::SPECIAL and are referred to by a number from the specialsv_list.
 This array maps that number back to the name of the SV (like 'Nullsv'
 or '&PL_sv_undef').
 
Unnamed repository; edit this file 'description' to name the repository.