X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9e209402444aedd210f045f2557e631ca974dda2..f84bd5086832f1839161f93c9d2099e08eb990af:/opcode.h diff --git a/opcode.h b/opcode.h index b9f6442..7c708e4 100644 --- a/opcode.h +++ b/opcode.h @@ -13,7 +13,7 @@ * Any changes made here will be lost! */ -#ifndef PERL_GLOBAL_STRUCT_INIT +#if defined(PERL_CORE) || defined(PERL_EXT) #define Perl_pp_scalar Perl_pp_null #define Perl_pp_padany Perl_unimplemented_op @@ -22,15 +22,15 @@ #define Perl_pp_chomp Perl_pp_chop #define Perl_pp_schomp Perl_pp_schop #define Perl_pp_i_preinc Perl_pp_preinc -#define Perl_pp_predec Perl_pp_preinc -#define Perl_pp_i_predec Perl_pp_preinc +#define Perl_pp_i_predec Perl_pp_predec #define Perl_pp_i_postinc Perl_pp_postinc -#define Perl_pp_postdec Perl_pp_postinc -#define Perl_pp_i_postdec Perl_pp_postinc +#define Perl_pp_i_postdec Perl_pp_postdec #define Perl_pp_slt Perl_pp_sle #define Perl_pp_sgt Perl_pp_sle #define Perl_pp_sge Perl_pp_sle #define Perl_pp_bit_xor Perl_pp_bit_or +#define Perl_pp_nbit_xor Perl_pp_nbit_or +#define Perl_pp_sbit_xor Perl_pp_sbit_or #define Perl_pp_cos Perl_pp_sin #define Perl_pp_exp Perl_pp_sin #define Perl_pp_log Perl_pp_sin @@ -140,8 +140,9 @@ #define Perl_pp_sgrent Perl_pp_ehostent #define Perl_pp_egrent Perl_pp_ehostent #define Perl_pp_custom Perl_unimplemented_op -#define Perl_pp_reach Perl_pp_rkeys -#define Perl_pp_rvalues Perl_pp_rkeys + +#endif /* End of if defined(PERL_CORE) || defined(PERL_EXT) */ + START_EXTERN_C #ifndef DOINIT @@ -161,7 +162,6 @@ EXTCONST char* const PL_op_name[] = { "padav", "padhv", "padany", - "pushre", "rv2gv", "rv2sv", "av2arylen", @@ -216,6 +216,7 @@ EXTCONST char* const PL_op_name[] = { "subtract", "i_subtract", "concat", + "multiconcat", "stringify", "left_shift", "right_shift", @@ -243,10 +244,18 @@ EXTCONST char* const PL_op_name[] = { "bit_and", "bit_xor", "bit_or", + "nbit_and", + "nbit_xor", + "nbit_or", + "sbit_and", + "sbit_xor", + "sbit_or", "negate", "i_negate", "not", "complement", + "ncomplement", + "scomplement", "smartmatch", "atan2", "sin", @@ -282,8 +291,8 @@ EXTCONST char* const PL_op_name[] = { "aslice", "kvaslice", "aeach", - "akeys", "avalues", + "akeys", "each", "values", "keys", @@ -293,6 +302,7 @@ EXTCONST char* const PL_op_name[] = { "helem", "hslice", "kvhslice", + "multideref", "unpack", "pack", "split", @@ -323,10 +333,12 @@ EXTCONST char* const PL_op_name[] = { "andassign", "orassign", "dorassign", - "method", "entersub", "leavesub", "leavesublv", + "argcheck", + "argelem", + "argdefelem", "caller", "warn", "die", @@ -349,7 +361,11 @@ EXTCONST char* const PL_op_name[] = { "dump", "goto", "exit", + "method", "method_named", + "method_super", + "method_redir", + "method_redir_super", "entergiven", "leavegiven", "enterwhen", @@ -517,10 +533,8 @@ EXTCONST char* const PL_op_name[] = { "lock", "once", "custom", - "reach", - "rkeys", - "rvalues", "coreargs", + "avhvswitch", "runcv", "fc", "padcv", @@ -531,6 +545,10 @@ EXTCONST char* const PL_op_name[] = { "lvref", "lvrefslice", "lvavref", + "anonconst", + "isa", + "cmpchain_and", + "cmpchain_dup", "freed", }; #endif @@ -552,7 +570,6 @@ EXTCONST char* const PL_op_desc[] = { "private array", "private hash", "private value", - "push regexp", "ref-to-glob cast", "scalar dereference", "array length", @@ -607,6 +624,7 @@ EXTCONST char* const PL_op_desc[] = { "subtraction (-)", "integer subtraction (-)", "concatenation (.) or string", + "concatenation (.) or string", "string", "left bitshift (<<)", "right bitshift (>>)", @@ -634,10 +652,18 @@ EXTCONST char* const PL_op_desc[] = { "bitwise and (&)", "bitwise xor (^)", "bitwise or (|)", + "numeric bitwise and (&)", + "numeric bitwise xor (^)", + "numeric bitwise or (|)", + "string bitwise and (&.)", + "string bitwise xor (^.)", + "string bitwise or (|.)", "negation (-)", "integer negation (-)", "not", "1's complement (~)", + "numeric 1's complement (~)", + "string 1's complement (~)", "smart match", "atan2", "sin", @@ -673,8 +699,8 @@ EXTCONST char* const PL_op_desc[] = { "array slice", "index/value array slice", "each on array", - "keys on array", "values on array", + "keys on array", "each", "values", "keys", @@ -684,13 +710,14 @@ EXTCONST char* const PL_op_desc[] = { "hash element", "hash slice", "key/value hash slice", + "array or hash lookup", "unpack", "pack", "split", "join or string", "list", "list slice", - "anonymous list ([])", + "anonymous array ([])", "anonymous hash ({})", "splice", "push", @@ -714,10 +741,12 @@ EXTCONST char* const PL_op_desc[] = { "logical and assignment (&&=)", "logical or assignment (||=)", "defined or assignment (//=)", - "method lookup", "subroutine entry", "subroutine exit", "lvalue subroutine return", + "check subroutine arguments", + "subroutine argument", + "subroutine argument default value", "caller", "warn", "die", @@ -740,7 +769,11 @@ EXTCONST char* const PL_op_desc[] = { "dump", "goto", "exit", + "method lookup", "method with known name", + "super with known name", + "redirect method with known name", + "redirect super method with known name", "given()", "leave given block", "when()", @@ -908,10 +941,8 @@ EXTCONST char* const PL_op_desc[] = { "lock", "once", "unknown custom operator", - "each on reference", - "keys on reference", - "values on reference", "CORE:: subroutine", + "Array/hash switch", "__SUB__", "fc", "private subroutine", @@ -922,27 +953,20 @@ EXTCONST char* const PL_op_desc[] = { "lvalue ref assignment", "lvalue ref assignment", "lvalue array reference", + "anonymous constant", + "derived class test", + "comparison chaining", + "comparand shuffling", "freed op", }; #endif END_EXTERN_C -#endif /* !PERL_GLOBAL_STRUCT_INIT */ - START_EXTERN_C -#ifdef PERL_GLOBAL_STRUCT_INIT -# define PERL_PPADDR_INITED -static const Perl_ppaddr_t Gppaddr[] -#else -# ifndef PERL_GLOBAL_STRUCT -# define PERL_PPADDR_INITED EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ -# endif -#endif /* PERL_GLOBAL_STRUCT */ -#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT) -# define PERL_PPADDR_INITED +#if defined(DOINIT) = { Perl_pp_null, Perl_pp_stub, @@ -957,7 +981,6 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_padav, Perl_pp_padhv, Perl_pp_padany, /* implemented by Perl_unimplemented_op */ - Perl_pp_pushre, Perl_pp_rv2gv, Perl_pp_rv2sv, Perl_pp_av2arylen, @@ -993,12 +1016,12 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_pos, Perl_pp_preinc, Perl_pp_i_preinc, /* implemented by Perl_pp_preinc */ - Perl_pp_predec, /* implemented by Perl_pp_preinc */ - Perl_pp_i_predec, /* implemented by Perl_pp_preinc */ + Perl_pp_predec, + Perl_pp_i_predec, /* implemented by Perl_pp_predec */ Perl_pp_postinc, Perl_pp_i_postinc, /* implemented by Perl_pp_postinc */ - Perl_pp_postdec, /* implemented by Perl_pp_postinc */ - Perl_pp_i_postdec, /* implemented by Perl_pp_postinc */ + Perl_pp_postdec, + Perl_pp_i_postdec, /* implemented by Perl_pp_postdec */ Perl_pp_pow, Perl_pp_multiply, Perl_pp_i_multiply, @@ -1012,6 +1035,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_subtract, Perl_pp_i_subtract, Perl_pp_concat, + Perl_pp_multiconcat, Perl_pp_stringify, Perl_pp_left_shift, Perl_pp_right_shift, @@ -1039,10 +1063,18 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_bit_and, Perl_pp_bit_xor, /* implemented by Perl_pp_bit_or */ Perl_pp_bit_or, + Perl_pp_nbit_and, + Perl_pp_nbit_xor, /* implemented by Perl_pp_nbit_or */ + Perl_pp_nbit_or, + Perl_pp_sbit_and, + Perl_pp_sbit_xor, /* implemented by Perl_pp_sbit_or */ + Perl_pp_sbit_or, Perl_pp_negate, Perl_pp_i_negate, Perl_pp_not, Perl_pp_complement, + Perl_pp_ncomplement, + Perl_pp_scomplement, Perl_pp_smartmatch, Perl_pp_atan2, Perl_pp_sin, @@ -1078,8 +1110,8 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_aslice, Perl_pp_kvaslice, Perl_pp_aeach, - Perl_pp_akeys, Perl_pp_avalues, /* implemented by Perl_pp_akeys */ + Perl_pp_akeys, Perl_pp_each, Perl_pp_values, /* implemented by Perl_do_kv */ Perl_pp_keys, /* implemented by Perl_do_kv */ @@ -1089,6 +1121,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_helem, Perl_pp_hslice, Perl_pp_kvhslice, + Perl_pp_multideref, Perl_pp_unpack, Perl_pp_pack, Perl_pp_split, @@ -1119,10 +1152,12 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_andassign, /* implemented by Perl_pp_and */ Perl_pp_orassign, /* implemented by Perl_pp_or */ Perl_pp_dorassign, /* implemented by Perl_pp_defined */ - Perl_pp_method, Perl_pp_entersub, Perl_pp_leavesub, Perl_pp_leavesublv, + Perl_pp_argcheck, + Perl_pp_argelem, + Perl_pp_argdefelem, Perl_pp_caller, Perl_pp_warn, Perl_pp_die, @@ -1145,7 +1180,11 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_dump, /* implemented by Perl_pp_goto */ Perl_pp_goto, Perl_pp_exit, + Perl_pp_method, Perl_pp_method_named, + Perl_pp_method_super, + Perl_pp_method_redir, + Perl_pp_method_redir_super, Perl_pp_entergiven, Perl_pp_leavegiven, Perl_pp_enterwhen, @@ -1313,10 +1352,8 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_lock, Perl_pp_once, Perl_pp_custom, /* implemented by Perl_unimplemented_op */ - Perl_pp_reach, /* implemented by Perl_pp_rkeys */ - Perl_pp_rkeys, - Perl_pp_rvalues, /* implemented by Perl_pp_rkeys */ Perl_pp_coreargs, + Perl_pp_avhvswitch, Perl_pp_runcv, Perl_pp_fc, Perl_pp_padcv, @@ -1327,23 +1364,16 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_lvref, Perl_pp_lvrefslice, Perl_pp_lvavref, + Perl_pp_anonconst, + Perl_pp_isa, + Perl_pp_cmpchain_and, + Perl_pp_cmpchain_dup, } #endif -#ifdef PERL_PPADDR_INITED ; -#endif -#ifdef PERL_GLOBAL_STRUCT_INIT -# define PERL_CHECK_INITED -static const Perl_check_t Gcheck[] -#else -# ifndef PERL_GLOBAL_STRUCT -# define PERL_CHECK_INITED EXT Perl_check_t PL_check[] /* or perlvars.h */ -# endif -#endif -#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT) -# define PERL_CHECK_INITED +#if defined(DOINIT) = { Perl_ck_null, /* null */ Perl_ck_null, /* stub */ @@ -1358,13 +1388,12 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* padav */ Perl_ck_null, /* padhv */ Perl_ck_null, /* padany */ - Perl_ck_null, /* pushre */ Perl_ck_rvconst, /* rv2gv */ Perl_ck_rvconst, /* rv2sv */ Perl_ck_null, /* av2arylen */ Perl_ck_rvconst, /* rv2cv */ Perl_ck_anoncode, /* anoncode */ - Perl_ck_null, /* prototype */ + Perl_ck_prototype, /* prototype */ Perl_ck_spair, /* refgen */ Perl_ck_null, /* srefgen */ Perl_ck_fun, /* ref */ @@ -1413,6 +1442,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* subtract */ Perl_ck_null, /* i_subtract */ Perl_ck_concat, /* concat */ + Perl_ck_null, /* multiconcat */ Perl_ck_stringify, /* stringify */ Perl_ck_bitop, /* left_shift */ Perl_ck_bitop, /* right_shift */ @@ -1424,10 +1454,10 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_cmp, /* i_le */ Perl_ck_cmp, /* ge */ Perl_ck_cmp, /* i_ge */ - Perl_ck_null, /* eq */ - Perl_ck_null, /* i_eq */ - Perl_ck_null, /* ne */ - Perl_ck_null, /* i_ne */ + Perl_ck_cmp, /* eq */ + Perl_ck_cmp, /* i_eq */ + Perl_ck_cmp, /* ne */ + Perl_ck_cmp, /* i_ne */ Perl_ck_null, /* ncmp */ Perl_ck_null, /* i_ncmp */ Perl_ck_null, /* slt */ @@ -1440,10 +1470,18 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_bitop, /* bit_and */ Perl_ck_bitop, /* bit_xor */ Perl_ck_bitop, /* bit_or */ + Perl_ck_bitop, /* nbit_and */ + Perl_ck_bitop, /* nbit_xor */ + Perl_ck_bitop, /* nbit_or */ + Perl_ck_bitop, /* sbit_and */ + Perl_ck_bitop, /* sbit_xor */ + Perl_ck_bitop, /* sbit_or */ Perl_ck_null, /* negate */ Perl_ck_null, /* i_negate */ Perl_ck_null, /* not */ Perl_ck_bitop, /* complement */ + Perl_ck_bitop, /* ncomplement */ + Perl_ck_null, /* scomplement */ Perl_ck_smartmatch, /* smartmatch */ Perl_ck_fun, /* atan2 */ Perl_ck_fun, /* sin */ @@ -1479,8 +1517,8 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* aslice */ Perl_ck_null, /* kvaslice */ Perl_ck_each, /* aeach */ - Perl_ck_each, /* akeys */ Perl_ck_each, /* avalues */ + Perl_ck_each, /* akeys */ Perl_ck_each, /* each */ Perl_ck_each, /* values */ Perl_ck_each, /* keys */ @@ -1490,6 +1528,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* helem */ Perl_ck_null, /* hslice */ Perl_ck_null, /* kvhslice */ + Perl_ck_null, /* multideref */ Perl_ck_fun, /* unpack */ Perl_ck_fun, /* pack */ Perl_ck_split, /* split */ @@ -1520,10 +1559,12 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* andassign */ Perl_ck_null, /* orassign */ Perl_ck_null, /* dorassign */ - Perl_ck_method, /* method */ Perl_ck_subr, /* entersub */ Perl_ck_null, /* leavesub */ Perl_ck_null, /* leavesublv */ + Perl_ck_null, /* argcheck */ + Perl_ck_null, /* argelem */ + Perl_ck_null, /* argdefelem */ Perl_ck_fun, /* caller */ Perl_ck_fun, /* warn */ Perl_ck_fun, /* die */ @@ -1546,7 +1587,11 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* dump */ Perl_ck_null, /* goto */ Perl_ck_fun, /* exit */ + Perl_ck_method, /* method */ Perl_ck_null, /* method_named */ + Perl_ck_null, /* method_super */ + Perl_ck_null, /* method_redir */ + Perl_ck_null, /* method_redir_super */ Perl_ck_null, /* entergiven */ Perl_ck_null, /* leavegiven */ Perl_ck_null, /* enterwhen */ @@ -1714,10 +1759,8 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_rfun, /* lock */ Perl_ck_null, /* once */ Perl_ck_null, /* custom */ - Perl_ck_each, /* reach */ - Perl_ck_each, /* rkeys */ - Perl_ck_each, /* rvalues */ Perl_ck_null, /* coreargs */ + Perl_ck_null, /* avhvswitch */ Perl_ck_null, /* runcv */ Perl_ck_fun, /* fc */ Perl_ck_null, /* padcv */ @@ -1728,13 +1771,13 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* lvref */ Perl_ck_null, /* lvrefslice */ Perl_ck_null, /* lvavref */ + Perl_ck_null, /* anonconst */ + Perl_ck_isa, /* isa */ + Perl_ck_null, /* cmpchain_and */ + Perl_ck_null, /* cmpchain_dup */ } #endif -#ifdef PERL_CHECK_INITED ; -#endif /* #ifdef PERL_CHECK_INITED */ - -#ifndef PERL_GLOBAL_STRUCT_INIT #ifndef DOINIT EXTCONST U32 PL_opargs[]; @@ -1748,18 +1791,17 @@ EXTCONST U32 PL_opargs[] = { 0x00000604, /* const */ 0x00000644, /* gvsv */ 0x00000644, /* gv */ - 0x00011240, /* gelem */ + 0x00011244, /* gelem */ 0x00000044, /* padsv */ 0x00000040, /* padav */ 0x00000040, /* padhv */ 0x00000040, /* padany */ - 0x00000540, /* pushre */ 0x00000144, /* rv2gv */ 0x00000144, /* rv2sv */ 0x00000104, /* av2arylen */ 0x00000140, /* rv2cv */ 0x00000604, /* anoncode */ - 0x00001b04, /* prototype */ + 0x00009b84, /* prototype */ 0x00002101, /* refgen */ 0x00001106, /* srefgen */ 0x00009b8c, /* ref */ @@ -1771,13 +1813,13 @@ EXTCONST U32 PL_opargs[] = { 0x00001104, /* regcmaybe */ 0x00001104, /* regcreset */ 0x00001304, /* regcomp */ - 0x00000540, /* match */ + 0x00000500, /* match */ 0x00000504, /* qr */ - 0x00001544, /* subst */ - 0x00000344, /* substcont */ + 0x00001504, /* subst */ + 0x00000304, /* substcont */ 0x00001804, /* trans */ 0x00001804, /* transr */ - 0x00000004, /* sassign */ + 0x00011204, /* sassign */ 0x00022208, /* aassign */ 0x00002b0d, /* chop */ 0x00009b8c, /* schop */ @@ -1791,10 +1833,10 @@ EXTCONST U32 PL_opargs[] = { 0x00001144, /* i_preinc */ 0x00001164, /* predec */ 0x00001144, /* i_predec */ - 0x0000116c, /* postinc */ - 0x0000115c, /* i_postinc */ - 0x0000116c, /* postdec */ - 0x0000115c, /* i_postdec */ + 0x0000112c, /* postinc */ + 0x0000110c, /* i_postinc */ + 0x0000112c, /* postdec */ + 0x0000110c, /* i_postdec */ 0x0001121e, /* pow */ 0x0001123e, /* multiply */ 0x0001121e, /* i_multiply */ @@ -1802,12 +1844,13 @@ EXTCONST U32 PL_opargs[] = { 0x0001121e, /* i_divide */ 0x0001123e, /* modulo */ 0x0001121e, /* i_modulo */ - 0x0001221b, /* repeat */ + 0x0001220b, /* repeat */ 0x0001123e, /* add */ 0x0001121e, /* i_add */ 0x0001123e, /* subtract */ 0x0001121e, /* i_subtract */ 0x0001121e, /* concat */ + 0x00000f1c, /* multiconcat */ 0x0000141e, /* stringify */ 0x0001121e, /* left_shift */ 0x0001121e, /* right_shift */ @@ -1835,10 +1878,18 @@ EXTCONST U32 PL_opargs[] = { 0x0001120e, /* bit_and */ 0x0001120e, /* bit_xor */ 0x0001120e, /* bit_or */ + 0x0001121e, /* nbit_and */ + 0x0001121e, /* nbit_xor */ + 0x0001121e, /* nbit_or */ + 0x0001120e, /* sbit_and */ + 0x0001120e, /* sbit_xor */ + 0x0001120e, /* sbit_or */ 0x0000112e, /* negate */ - 0x0000111e, /* i_negate */ + 0x0000110e, /* i_negate */ 0x00001106, /* not */ 0x0000110e, /* complement */ + 0x0000111e, /* ncomplement */ + 0x0000111e, /* scomplement */ 0x00000204, /* smartmatch */ 0x0001141e, /* atan2 */ 0x00009b9e, /* sin */ @@ -1854,7 +1905,7 @@ EXTCONST U32 PL_opargs[] = { 0x00009b9e, /* abs */ 0x00009b9e, /* length */ 0x0991140c, /* substr */ - 0x0011141c, /* vec */ + 0x0011140c, /* vec */ 0x0091141c, /* index */ 0x0091141c, /* rindex */ 0x0002140f, /* sprintf */ @@ -1873,21 +1924,22 @@ EXTCONST U32 PL_opargs[] = { 0x00013204, /* aelem */ 0x00023401, /* aslice */ 0x00023401, /* kvaslice */ - 0x00003b00, /* aeach */ + 0x00003b40, /* aeach */ + 0x00003b48, /* avalues */ 0x00003b08, /* akeys */ - 0x00003b08, /* avalues */ - 0x00004b00, /* each */ - 0x00004b08, /* values */ + 0x00004b40, /* each */ + 0x00004b48, /* values */ 0x00004b08, /* keys */ 0x00001b00, /* delete */ 0x00001b04, /* exists */ - 0x00000140, /* rv2hv */ + 0x00000148, /* rv2hv */ 0x00014204, /* helem */ 0x00024401, /* hslice */ 0x00024401, /* kvhslice */ + 0x00000f44, /* multideref */ 0x00091480, /* unpack */ 0x0002140f, /* pack */ - 0x00111408, /* split */ + 0x00111508, /* split */ 0x0002140f, /* join */ 0x00002401, /* list */ 0x00224200, /* lslice */ @@ -1898,12 +1950,12 @@ EXTCONST U32 PL_opargs[] = { 0x0000bb04, /* pop */ 0x0000bb04, /* shift */ 0x0002341d, /* unshift */ - 0x0002d441, /* sort */ + 0x0002d401, /* sort */ 0x00002409, /* reverse */ - 0x00025441, /* grepstart */ - 0x00000348, /* grepwhile */ - 0x00025441, /* mapstart */ - 0x00000348, /* mapwhile */ + 0x00025401, /* grepstart */ + 0x00000308, /* grepwhile */ + 0x00025401, /* mapstart */ + 0x00000308, /* mapwhile */ 0x00011300, /* range */ 0x00011100, /* flip */ 0x00000100, /* flop */ @@ -1911,17 +1963,19 @@ EXTCONST U32 PL_opargs[] = { 0x00000300, /* or */ 0x00011206, /* xor */ 0x00000300, /* dor */ - 0x00000340, /* cond_expr */ + 0x00000300, /* cond_expr */ 0x00000304, /* andassign */ 0x00000304, /* orassign */ 0x00000304, /* dorassign */ - 0x00000e40, /* method */ - 0x00002149, /* entersub */ + 0x00002141, /* entersub */ 0x00000100, /* leavesub */ 0x00000100, /* leavesublv */ + 0x00000f00, /* argcheck */ + 0x00000f00, /* argelem */ + 0x00000300, /* argdefelem */ 0x00009b08, /* caller */ 0x0000240d, /* warn */ - 0x0000244d, /* die */ + 0x0000240d, /* die */ 0x00009b04, /* reset */ 0x00000400, /* lineseq */ 0x00000a04, /* nextstate */ @@ -1934,14 +1988,18 @@ EXTCONST U32 PL_opargs[] = { 0x00000000, /* iter */ 0x00000940, /* enterloop */ 0x00000200, /* leaveloop */ - 0x00002441, /* return */ - 0x00000d44, /* last */ - 0x00000d44, /* next */ - 0x00000d44, /* redo */ + 0x00002401, /* return */ + 0x00000d04, /* last */ + 0x00000d04, /* next */ + 0x00000d04, /* redo */ 0x00000d44, /* dump */ - 0x00000d44, /* goto */ - 0x00009b44, /* exit */ + 0x00000d04, /* goto */ + 0x00009b04, /* exit */ + 0x00000e40, /* method */ 0x00000e40, /* method_named */ + 0x00000e40, /* method_super */ + 0x00000e40, /* method_redir */ + 0x00000e40, /* method_redir_super */ 0x00000340, /* entergiven */ 0x00000100, /* leavegiven */ 0x00000340, /* enterwhen */ @@ -1956,14 +2014,14 @@ EXTCONST U32 PL_opargs[] = { 0x00096404, /* binmode */ 0x00217445, /* tie */ 0x00007b04, /* untie */ - 0x00007b04, /* tied */ + 0x00007b44, /* tied */ 0x00114404, /* dbmopen */ 0x00004b04, /* dbmclose */ 0x01111408, /* sselect */ 0x0000e40c, /* select */ 0x0000eb0c, /* getc */ 0x0917640d, /* read */ - 0x0000eb44, /* enterwrite */ + 0x0000eb04, /* enterwrite */ 0x00000100, /* leavewrite */ 0x0002e405, /* prtf */ 0x0002e405, /* print */ @@ -2043,8 +2101,8 @@ EXTCONST U32 PL_opargs[] = { 0x0000001c, /* wait */ 0x0001141c, /* waitpid */ 0x0002941d, /* system */ - 0x0002945d, /* exec */ - 0x0000245d, /* kill */ + 0x0002941d, /* exec */ + 0x0000241d, /* kill */ 0x0000001c, /* getppid */ 0x00009b1c, /* getpgrp */ 0x0009941c, /* setpgrp */ @@ -2067,7 +2125,7 @@ EXTCONST U32 PL_opargs[] = { 0x0001140d, /* semop */ 0x0011140d, /* semget */ 0x0111140d, /* semctl */ - 0x00009bc0, /* require */ + 0x00009bc4, /* require */ 0x00001140, /* dofile */ 0x00000604, /* hintseval */ 0x00009bc0, /* entereval */ @@ -2109,53 +2167,61 @@ EXTCONST U32 PL_opargs[] = { 0x00007b04, /* lock */ 0x00000300, /* once */ 0x00000000, /* custom */ - 0x00001b00, /* reach */ - 0x00001b08, /* rkeys */ - 0x00001b08, /* rvalues */ 0x00000600, /* coreargs */ + 0x00000108, /* avhvswitch */ 0x00000004, /* runcv */ 0x00009b8e, /* fc */ 0x00000040, /* padcv */ 0x00000040, /* introcv */ 0x00000040, /* clonecv */ 0x00000040, /* padrange */ - 0x00000240, /* refassign */ + 0x00000244, /* refassign */ 0x00000b40, /* lvref */ 0x00000440, /* lvrefslice */ 0x00000b40, /* lvavref */ + 0x00000144, /* anonconst */ + 0x00000204, /* isa */ + 0x00000300, /* cmpchain_and */ + 0x00000100, /* cmpchain_dup */ }; #endif -#endif /* !PERL_GLOBAL_STRUCT_INIT */ - END_EXTERN_C +#define OPpARGELEM_SV 0x00 #define OPpLVREF_SV 0x00 #define OPpARG1_MASK 0x01 #define OPpCOREARGS_DEREF1 0x01 #define OPpENTERSUB_INARGS 0x01 +#define OPpPADHV_ISKEYS 0x01 +#define OPpRV2HV_ISKEYS 0x01 #define OPpSORT_NUMERIC 0x01 -#define OPpTRANS_FROM_UTF 0x01 +#define OPpTRANS_CAN_FORCE_UTF8 0x01 +#define OPpARGELEM_AV 0x02 #define OPpCONST_NOVER 0x02 #define OPpCOREARGS_DEREF2 0x02 #define OPpEVAL_HAS_HH 0x02 #define OPpFT_ACCESS 0x02 -#define OPpGREP_LEX 0x02 #define OPpHINT_STRICT_REFS 0x02 +#define OPpITER_REVERSED 0x02 #define OPpSORT_INTEGER 0x02 -#define OPpTRANS_TO_UTF 0x02 +#define OPpTRANS_USE_SVOP 0x02 #define OPpARG2_MASK 0x03 +#define OPpAVHVSWITCH_MASK 0x03 +#define OPpARGELEM_HV 0x04 +#define OPpASSIGN_TRUEBOOL 0x04 #define OPpCONST_SHORTCIRCUIT 0x04 #define OPpDONT_INIT_GV 0x04 #define OPpENTERSUB_HASTARG 0x04 #define OPpEVAL_UNICODE 0x04 #define OPpFT_STACKED 0x04 -#define OPpITER_REVERSED 0x04 #define OPpLVREF_ELEM 0x04 #define OPpSLICEWARNING 0x04 #define OPpSORT_REVERSE 0x04 +#define OPpSPLIT_IMPLIM 0x04 #define OPpTRANS_IDENTICAL 0x04 +#define OPpARGELEM_MASK 0x06 #define OPpARG3_MASK 0x07 #define OPpPADRANGE_COUNTSHIFT 0x07 #define OPpCONST_STRICT 0x08 @@ -2165,28 +2231,36 @@ END_EXTERN_C #define OPpITER_DEF 0x08 #define OPpLVREF_ITER 0x08 #define OPpMAYBE_LVSUB 0x08 +#define OPpMULTICONCAT_STRINGIFY 0x08 #define OPpREVERSE_INPLACE 0x08 #define OPpSORT_INPLACE 0x08 +#define OPpSPLIT_LEX 0x08 #define OPpTRANS_SQUASH 0x08 #define OPpARG4_MASK 0x0f +#define OPpASSIGN_COMMON_AGG 0x10 #define OPpCONST_ENTERED 0x10 #define OPpDEREF_AV 0x10 #define OPpEVAL_COPHH 0x10 #define OPpFT_AFTER_t 0x10 #define OPpLVREF_AV 0x10 #define OPpMAYBE_TRUEBOOL 0x10 +#define OPpMULTIDEREF_EXISTS 0x10 #define OPpOPEN_IN_RAW 0x10 #define OPpSORT_DESCEND 0x10 +#define OPpSPLIT_ASSIGN 0x10 #define OPpSUBSTR_REPL_FIRST 0x10 #define OPpTARGET_MY 0x10 +#define OPpASSIGN_COMMON_RC1 0x20 #define OPpDEREF_HV 0x20 #define OPpEARLY_CV 0x20 #define OPpEVAL_RE_REPARSING 0x20 #define OPpHUSH_VMSISH 0x20 +#define OPpKVSLICE 0x20 #define OPpLVREF_HV 0x20 #define OPpMAY_RETURN_CONSTANT 0x20 +#define OPpMULTICONCAT_FAKE 0x20 +#define OPpMULTIDEREF_DELETE 0x20 #define OPpOPEN_IN_CRLF 0x20 -#define OPpSORT_QSORT 0x20 #define OPpTRANS_COMPLEMENT 0x20 #define OPpTRUEBOOL 0x20 #define OPpDEREF 0x30 @@ -2195,21 +2269,22 @@ END_EXTERN_C #define OPpLVREF_TYPE 0x30 #define OPpALLOW_FAKE 0x40 #define OPpASSIGN_BACKWARDS 0x40 -#define OPpASSIGN_COMMON 0x40 +#define OPpASSIGN_COMMON_SCALAR 0x40 +#define OPpCONCAT_NESTED 0x40 #define OPpCONST_BARE 0x40 #define OPpCOREARGS_SCALARMOD 0x40 #define OPpENTERSUB_DB 0x40 #define OPpEXISTS_SUB 0x40 #define OPpFLIP_LINENUM 0x40 -#define OPpHINT_M_VMSISH_STATUS 0x40 +#define OPpINDEX_BOOLNEG 0x40 #define OPpLIST_GUESSED 0x40 #define OPpLVAL_DEFER 0x40 +#define OPpMULTICONCAT_APPEND 0x40 #define OPpOPEN_OUT_RAW 0x40 #define OPpOUR_INTRO 0x40 #define OPpPAD_STATE 0x40 #define OPpREFCOUNTED 0x40 #define OPpREPEAT_DOLIST 0x40 -#define OPpRUNTIME 0x40 #define OPpSLICE 0x40 #define OPpSORT_STABLE 0x40 #define OPpTRANS_GROWS 0x40 @@ -2217,19 +2292,16 @@ END_EXTERN_C #define OPpASSIGN_CV_TO_GV 0x80 #define OPpCOREARGS_PUSHMARK 0x80 #define OPpENTERSUB_NOPAREN 0x80 -#define OPpHINT_M_VMSISH_TIME 0x80 #define OPpLVALUE 0x80 #define OPpLVAL_INTRO 0x80 #define OPpOFFBYONE 0x80 #define OPpOPEN_OUT_CRLF 0x80 #define OPpPV_IS_UTF8 0x80 -#define OPpSPLIT_IMPLIM 0x80 +#define OPpSORT_UNSTABLE 0x80 #define OPpTRANS_DELETE 0x80 START_EXTERN_C -#ifndef PERL_GLOBAL_STRUCT_INIT - -# ifndef DOINIT +#ifndef DOINIT /* data about the flags in op_private */ @@ -2239,7 +2311,7 @@ EXTCONST char PL_op_private_labels[]; EXTCONST I16 PL_op_private_bitfields[]; EXTCONST U8 PL_op_private_valid[]; -# else +#else /* PL_op_private_labels[]: the short descriptions of private flags. @@ -2251,17 +2323,20 @@ EXTCONST char PL_op_private_labels[] = { '$','M','O','D','\0', '+','1','\0', '-','\0', - '<','U','T','F','\0', - '>','U','T','F','\0', 'A','M','P','E','R','\0', + 'A','P','P','E','N','D','\0', + 'A','S','S','I','G','N','\0', 'A','V','\0', 'B','A','R','E','\0', 'B','K','W','A','R','D','\0', 'B','O','O','L','\0', 'B','O','O','L','?','\0', 'B','Y','T','E','S','\0', - 'C','O','M','M','O','N','\0', + 'C','A','N','_','F','O','R','C','E','_','U','T','F','8','\0', 'C','O','M','P','L','\0', + 'C','O','M','_','A','G','G','\0', + 'C','O','M','_','R','C','1','\0', + 'C','O','M','_','S','C','A','L','A','R','\0', 'C','O','N','S','T','\0', 'C','O','P','H','H','\0', 'C','V','\0', @@ -2269,6 +2344,7 @@ EXTCONST char PL_op_private_labels[] = { 'D','B','G','\0', 'D','E','F','\0', 'D','E','L','\0', + 'D','E','L','E','T','E','\0', 'D','E','R','E','F','1','\0', 'D','E','R','E','F','2','\0', 'D','E','S','C','\0', @@ -2279,12 +2355,12 @@ EXTCONST char PL_op_private_labels[] = { 'E','A','R','L','Y','C','V','\0', 'E','L','E','M','\0', 'E','N','T','E','R','E','D','\0', + 'E','X','I','S','T','S','\0', 'F','A','K','E','\0', 'F','T','A','C','C','E','S','S','\0', 'F','T','A','F','T','E','R','t','\0', 'F','T','S','T','A','C','K','E','D','\0', 'F','T','S','T','A','C','K','I','N','G','\0', - 'G','R','E','P','L','E','X','\0', 'G','R','O','W','S','\0', 'G','U','E','S','S','E','D','\0', 'H','A','S','_','H','H','\0', @@ -2298,12 +2374,17 @@ EXTCONST char PL_op_private_labels[] = { 'I','N','P','L','A','C','E','\0', 'I','N','T','\0', 'I','T','E','R','\0', + 'K','E','Y','S','\0', + 'K','V','S','L','I','C','E','\0', + 'L','E','X','\0', 'L','I','N','E','N','U','M','\0', 'L','V','\0', 'L','V','D','E','F','E','R','\0', 'L','V','I','N','T','R','O','\0', 'L','V','S','U','B','\0', 'M','A','R','K','\0', + 'N','E','G','\0', + 'N','E','S','T','E','D','\0', 'N','O','(',')','\0', 'N','O','I','N','I','T','\0', 'N','O','V','E','R','\0', @@ -2311,13 +2392,11 @@ EXTCONST char PL_op_private_labels[] = { 'O','U','R','I','N','T','R','\0', 'O','U','T','B','I','N','\0', 'O','U','T','C','R','\0', - 'Q','S','O','R','T','\0', 'R','E','F','C','\0', 'R','E','P','A','R','S','E','\0', 'R','E','P','L','1','S','T','\0', 'R','E','V','\0', 'R','E','V','E','R','S','E','D','\0', - 'R','T','I','M','E','\0', 'S','H','O','R','T','\0', 'S','L','I','C','E','\0', 'S','L','I','C','E','W','A','R','N','\0', @@ -2325,14 +2404,18 @@ EXTCONST char PL_op_private_labels[] = { 'S','T','A','B','L','E','\0', 'S','T','A','T','E','\0', 'S','T','R','I','C','T','\0', + 'S','T','R','I','N','G','I','F','Y','\0', 'S','U','B','\0', 'S','V','\0', 'T','A','R','G','\0', 'T','A','R','G','M','Y','\0', 'U','N','I','\0', + 'U','N','S','T','A','B','L','E','\0', + 'U','S','E','_','S','V','O','P','\0', 'U','T','F','\0', - 'V','M','S','I','S','H','_','S','T','A','T','U','S','\0', - 'V','M','S','I','S','H','_','T','I','M','E','\0', + 'k','e','y','\0', + 'o','f','f','s','e','t','\0', + 'r','a','n','g','e','\0', }; @@ -2351,12 +2434,14 @@ EXTCONST char PL_op_private_labels[] = { EXTCONST I16 PL_op_private_bitfields[] = { 0, 8, -1, 0, 8, -1, + 0, 597, -1, 0, 8, -1, 0, 8, -1, - 0, 8, -1, - 0, 8, -1, - 4, -1, 1, 130, 2, 137, 3, 144, -1, - 4, -1, 0, 481, 1, 26, 2, 250, 3, 83, -1, + 0, 604, -1, + 0, 593, -1, + 1, -1, 0, 552, 1, 30, 2, 295, -1, + 4, -1, 1, 176, 2, 183, 3, 190, -1, + 4, -1, 0, 552, 1, 30, 2, 295, 3, 122, -1, }; @@ -2376,378 +2461,395 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 12, /* gelem */ 13, /* padsv */ 16, /* padav */ - 20, /* padhv */ + 21, /* padhv */ -1, /* padany */ - 26, /* pushre */ - 27, /* rv2gv */ - 34, /* rv2sv */ - 39, /* av2arylen */ - 41, /* rv2cv */ + 28, /* rv2gv */ + 35, /* rv2sv */ + 40, /* av2arylen */ + 42, /* rv2cv */ -1, /* anoncode */ - 48, /* prototype */ - 49, /* refgen */ - 50, /* srefgen */ - 51, /* ref */ + 0, /* prototype */ + 0, /* refgen */ + 0, /* srefgen */ + 49, /* ref */ 52, /* bless */ 53, /* backtick */ - 58, /* glob */ - 59, /* readline */ + 52, /* glob */ + 0, /* readline */ -1, /* rcatline */ - 60, /* regcmaybe */ - 61, /* regcreset */ - 62, /* regcomp */ - 63, /* match */ - 65, /* qr */ - 66, /* subst */ - 68, /* substcont */ - 70, /* trans */ - 78, /* transr */ - 86, /* sassign */ - 89, /* aassign */ - 92, /* chop */ - 93, /* schop */ - 94, /* chomp */ - 96, /* schomp */ - 98, /* defined */ - 99, /* undef */ - 100, /* study */ - 101, /* pos */ - 103, /* preinc */ - 104, /* i_preinc */ - 105, /* predec */ - 106, /* i_predec */ - 107, /* postinc */ - 108, /* i_postinc */ - 110, /* postdec */ - 111, /* i_postdec */ - 113, /* pow */ - 115, /* multiply */ - 117, /* i_multiply */ - 119, /* divide */ - 121, /* i_divide */ - 123, /* modulo */ - 125, /* i_modulo */ - 127, /* repeat */ - 130, /* add */ - 132, /* i_add */ - 134, /* subtract */ - 136, /* i_subtract */ - 138, /* concat */ - 140, /* stringify */ - 142, /* left_shift */ - 144, /* right_shift */ - 146, /* lt */ - 147, /* i_lt */ - 148, /* gt */ - 149, /* i_gt */ - 150, /* le */ - 151, /* i_le */ - 152, /* ge */ - 153, /* i_ge */ - 154, /* eq */ - 155, /* i_eq */ - 156, /* ne */ - 157, /* i_ne */ - 158, /* ncmp */ - 159, /* i_ncmp */ - 160, /* slt */ - 161, /* sgt */ - 162, /* sle */ - 163, /* sge */ - 164, /* seq */ - 165, /* sne */ - 166, /* scmp */ - 167, /* bit_and */ - 168, /* bit_xor */ - 169, /* bit_or */ - 170, /* negate */ - 171, /* i_negate */ - 173, /* not */ - 174, /* complement */ - 175, /* smartmatch */ - 176, /* atan2 */ - 178, /* sin */ - 180, /* cos */ - 182, /* rand */ - 184, /* srand */ - 186, /* exp */ - 188, /* log */ - 190, /* sqrt */ - 192, /* int */ - 194, /* hex */ - 196, /* oct */ - 198, /* abs */ - 200, /* length */ - 202, /* substr */ - 205, /* vec */ - 208, /* index */ - 210, /* rindex */ - 212, /* sprintf */ - 213, /* formline */ - 214, /* ord */ - 216, /* chr */ - 218, /* crypt */ - 220, /* ucfirst */ - 221, /* lcfirst */ - 222, /* uc */ - 223, /* lc */ - 224, /* quotemeta */ - 225, /* rv2av */ - 231, /* aelemfast */ - 232, /* aelemfast_lex */ - 233, /* aelem */ - 238, /* aslice */ - 241, /* kvaslice */ - 242, /* aeach */ - 243, /* akeys */ - 244, /* avalues */ - 245, /* each */ - 246, /* values */ - 247, /* keys */ - 249, /* delete */ - 252, /* exists */ - 254, /* rv2hv */ - 262, /* helem */ - 267, /* hslice */ - 270, /* kvhslice */ - 271, /* unpack */ - 272, /* pack */ - 273, /* split */ - 275, /* join */ - 276, /* list */ - 278, /* lslice */ - 279, /* anonlist */ - 280, /* anonhash */ - 281, /* splice */ - 282, /* push */ - 284, /* pop */ - 285, /* shift */ - 286, /* unshift */ - 288, /* sort */ - 295, /* reverse */ - 297, /* grepstart */ - 298, /* grepwhile */ - 300, /* mapstart */ - 301, /* mapwhile */ - 303, /* range */ - 304, /* flip */ - 306, /* flop */ - 308, /* and */ - 309, /* or */ - 310, /* xor */ - 311, /* dor */ - 312, /* cond_expr */ - 314, /* andassign */ - 315, /* orassign */ - 316, /* dorassign */ - 317, /* method */ - 318, /* entersub */ - 325, /* leavesub */ - 327, /* leavesublv */ - 329, /* caller */ - 331, /* warn */ - 332, /* die */ - 333, /* reset */ + 0, /* regcmaybe */ + 0, /* regcreset */ + 0, /* regcomp */ + -1, /* match */ + -1, /* qr */ + 58, /* subst */ + 0, /* substcont */ + 59, /* trans */ + 59, /* transr */ + 66, /* sassign */ + 69, /* aassign */ + 0, /* chop */ + 0, /* schop */ + 75, /* chomp */ + 75, /* schomp */ + 0, /* defined */ + 0, /* undef */ + 0, /* study */ + 77, /* pos */ + 0, /* preinc */ + 0, /* i_preinc */ + 0, /* predec */ + 0, /* i_predec */ + 0, /* postinc */ + 0, /* i_postinc */ + 0, /* postdec */ + 0, /* i_postdec */ + 80, /* pow */ + 80, /* multiply */ + 80, /* i_multiply */ + 80, /* divide */ + 80, /* i_divide */ + 80, /* modulo */ + 80, /* i_modulo */ + 82, /* repeat */ + 80, /* add */ + 80, /* i_add */ + 80, /* subtract */ + 80, /* i_subtract */ + 84, /* concat */ + 87, /* multiconcat */ + 93, /* stringify */ + 80, /* left_shift */ + 80, /* right_shift */ + 12, /* lt */ + 12, /* i_lt */ + 12, /* gt */ + 12, /* i_gt */ + 12, /* le */ + 12, /* i_le */ + 12, /* ge */ + 12, /* i_ge */ + 12, /* eq */ + 12, /* i_eq */ + 12, /* ne */ + 12, /* i_ne */ + 12, /* ncmp */ + 12, /* i_ncmp */ + 12, /* slt */ + 12, /* sgt */ + 12, /* sle */ + 12, /* sge */ + 12, /* seq */ + 12, /* sne */ + 12, /* scmp */ + 12, /* bit_and */ + 12, /* bit_xor */ + 12, /* bit_or */ + 80, /* nbit_and */ + 80, /* nbit_xor */ + 80, /* nbit_or */ + 12, /* sbit_and */ + 12, /* sbit_xor */ + 12, /* sbit_or */ + 0, /* negate */ + 0, /* i_negate */ + 0, /* not */ + 0, /* complement */ + 75, /* ncomplement */ + 75, /* scomplement */ + 12, /* smartmatch */ + 93, /* atan2 */ + 75, /* sin */ + 75, /* cos */ + 93, /* rand */ + 93, /* srand */ + 75, /* exp */ + 75, /* log */ + 75, /* sqrt */ + 75, /* int */ + 75, /* hex */ + 75, /* oct */ + 75, /* abs */ + 95, /* length */ + 98, /* substr */ + 101, /* vec */ + 103, /* index */ + 103, /* rindex */ + 52, /* sprintf */ + 52, /* formline */ + 75, /* ord */ + 75, /* chr */ + 93, /* crypt */ + 0, /* ucfirst */ + 0, /* lcfirst */ + 0, /* uc */ + 0, /* lc */ + 0, /* quotemeta */ + 107, /* rv2av */ + 114, /* aelemfast */ + 114, /* aelemfast_lex */ + 115, /* aelem */ + 120, /* aslice */ + 123, /* kvaslice */ + 0, /* aeach */ + 0, /* avalues */ + 40, /* akeys */ + 0, /* each */ + 40, /* values */ + 40, /* keys */ + 124, /* delete */ + 128, /* exists */ + 130, /* rv2hv */ + 115, /* helem */ + 120, /* hslice */ + 123, /* kvhslice */ + 138, /* multideref */ + 52, /* unpack */ + 52, /* pack */ + 145, /* split */ + 52, /* join */ + 150, /* list */ + 12, /* lslice */ + 52, /* anonlist */ + 52, /* anonhash */ + 52, /* splice */ + 93, /* push */ + 0, /* pop */ + 0, /* shift */ + 93, /* unshift */ + 152, /* sort */ + 159, /* reverse */ + 0, /* grepstart */ + 161, /* grepwhile */ + 0, /* mapstart */ + 0, /* mapwhile */ + 0, /* range */ + 163, /* flip */ + 163, /* flop */ + 0, /* and */ + 0, /* or */ + 12, /* xor */ + 0, /* dor */ + 165, /* cond_expr */ + 0, /* andassign */ + 0, /* orassign */ + 0, /* dorassign */ + 167, /* entersub */ + 174, /* leavesub */ + 174, /* leavesublv */ + 0, /* argcheck */ + 176, /* argelem */ + 0, /* argdefelem */ + 178, /* caller */ + 52, /* warn */ + 52, /* die */ + 52, /* reset */ -1, /* lineseq */ - 334, /* nextstate */ - 337, /* dbstate */ + 180, /* nextstate */ + 180, /* dbstate */ -1, /* unstack */ -1, /* enter */ - 340, /* leave */ + 181, /* leave */ -1, /* scope */ - 342, /* enteriter */ - 346, /* iter */ + 183, /* enteriter */ + 187, /* iter */ -1, /* enterloop */ - 347, /* leaveloop */ + 188, /* leaveloop */ -1, /* return */ - 349, /* last */ - 351, /* next */ - 353, /* redo */ - 355, /* dump */ - 357, /* goto */ - 359, /* exit */ - 360, /* method_named */ - 361, /* entergiven */ - 362, /* leavegiven */ - 363, /* enterwhen */ - 364, /* leavewhen */ + 190, /* last */ + 190, /* next */ + 190, /* redo */ + 190, /* dump */ + 190, /* goto */ + 52, /* exit */ + 0, /* method */ + 0, /* method_named */ + 0, /* method_super */ + 0, /* method_redir */ + 0, /* method_redir_super */ + 0, /* entergiven */ + 0, /* leavegiven */ + 0, /* enterwhen */ + 0, /* leavewhen */ -1, /* break */ -1, /* continue */ - 365, /* open */ - 370, /* close */ - 371, /* pipe_op */ - 372, /* fileno */ - 373, /* umask */ - 374, /* binmode */ - 375, /* tie */ - 376, /* untie */ - 377, /* tied */ - 378, /* dbmopen */ - 379, /* dbmclose */ - 380, /* sselect */ - 381, /* select */ - 382, /* getc */ - 383, /* read */ - 384, /* enterwrite */ - 385, /* leavewrite */ + 192, /* open */ + 52, /* close */ + 52, /* pipe_op */ + 52, /* fileno */ + 52, /* umask */ + 52, /* binmode */ + 52, /* tie */ + 0, /* untie */ + 0, /* tied */ + 52, /* dbmopen */ + 0, /* dbmclose */ + 52, /* sselect */ + 52, /* select */ + 52, /* getc */ + 52, /* read */ + 52, /* enterwrite */ + 174, /* leavewrite */ -1, /* prtf */ -1, /* print */ -1, /* say */ - 387, /* sysopen */ - 388, /* sysseek */ - 389, /* sysread */ - 390, /* syswrite */ - 391, /* eof */ - 392, /* tell */ - 393, /* seek */ - 394, /* truncate */ - 395, /* fcntl */ - 396, /* ioctl */ - 397, /* flock */ - 399, /* send */ - 400, /* recv */ - 401, /* socket */ - 402, /* sockpair */ - 403, /* bind */ - 404, /* connect */ - 405, /* listen */ - 406, /* accept */ - 407, /* shutdown */ - 408, /* gsockopt */ - 409, /* ssockopt */ - 410, /* getsockname */ - 411, /* getpeername */ - 412, /* lstat */ - 413, /* stat */ - 414, /* ftrread */ - 419, /* ftrwrite */ - 424, /* ftrexec */ - 429, /* fteread */ - 434, /* ftewrite */ - 439, /* fteexec */ - 444, /* ftis */ - 448, /* ftsize */ - 452, /* ftmtime */ - 456, /* ftatime */ - 460, /* ftctime */ - 464, /* ftrowned */ - 468, /* fteowned */ - 472, /* ftzero */ - 476, /* ftsock */ - 480, /* ftchr */ - 484, /* ftblk */ - 488, /* ftfile */ - 492, /* ftdir */ - 496, /* ftpipe */ - 500, /* ftsuid */ - 504, /* ftsgid */ - 508, /* ftsvtx */ - 512, /* ftlink */ - 516, /* fttty */ - 520, /* fttext */ - 524, /* ftbinary */ - 528, /* chdir */ - 530, /* chown */ - 532, /* chroot */ - 534, /* unlink */ - 536, /* chmod */ - 538, /* utime */ - 540, /* rename */ - 542, /* link */ - 544, /* symlink */ - 546, /* readlink */ - 547, /* mkdir */ - 549, /* rmdir */ - 551, /* open_dir */ - 552, /* readdir */ - 553, /* telldir */ - 554, /* seekdir */ - 555, /* rewinddir */ - 556, /* closedir */ + 52, /* sysopen */ + 52, /* sysseek */ + 52, /* sysread */ + 52, /* syswrite */ + 52, /* eof */ + 52, /* tell */ + 52, /* seek */ + 52, /* truncate */ + 52, /* fcntl */ + 52, /* ioctl */ + 93, /* flock */ + 52, /* send */ + 52, /* recv */ + 52, /* socket */ + 52, /* sockpair */ + 52, /* bind */ + 52, /* connect */ + 52, /* listen */ + 52, /* accept */ + 52, /* shutdown */ + 52, /* gsockopt */ + 52, /* ssockopt */ + 0, /* getsockname */ + 0, /* getpeername */ + 0, /* lstat */ + 0, /* stat */ + 197, /* ftrread */ + 197, /* ftrwrite */ + 197, /* ftrexec */ + 197, /* fteread */ + 197, /* ftewrite */ + 197, /* fteexec */ + 202, /* ftis */ + 202, /* ftsize */ + 202, /* ftmtime */ + 202, /* ftatime */ + 202, /* ftctime */ + 202, /* ftrowned */ + 202, /* fteowned */ + 202, /* ftzero */ + 202, /* ftsock */ + 202, /* ftchr */ + 202, /* ftblk */ + 202, /* ftfile */ + 202, /* ftdir */ + 202, /* ftpipe */ + 202, /* ftsuid */ + 202, /* ftsgid */ + 202, /* ftsvtx */ + 202, /* ftlink */ + 202, /* fttty */ + 202, /* fttext */ + 202, /* ftbinary */ + 93, /* chdir */ + 93, /* chown */ + 75, /* chroot */ + 93, /* unlink */ + 93, /* chmod */ + 93, /* utime */ + 93, /* rename */ + 93, /* link */ + 93, /* symlink */ + 0, /* readlink */ + 93, /* mkdir */ + 75, /* rmdir */ + 52, /* open_dir */ + 0, /* readdir */ + 0, /* telldir */ + 52, /* seekdir */ + 0, /* rewinddir */ + 0, /* closedir */ -1, /* fork */ - 557, /* wait */ - 558, /* waitpid */ - 560, /* system */ - 562, /* exec */ - 564, /* kill */ - 566, /* getppid */ - 567, /* getpgrp */ - 569, /* setpgrp */ - 571, /* getpriority */ - 573, /* setpriority */ - 575, /* time */ + 206, /* wait */ + 93, /* waitpid */ + 93, /* system */ + 93, /* exec */ + 93, /* kill */ + 206, /* getppid */ + 93, /* getpgrp */ + 93, /* setpgrp */ + 93, /* getpriority */ + 93, /* setpriority */ + 206, /* time */ -1, /* tms */ - 576, /* localtime */ - 577, /* gmtime */ - 578, /* alarm */ - 579, /* sleep */ - 581, /* shmget */ - 582, /* shmctl */ - 583, /* shmread */ - 584, /* shmwrite */ - 585, /* msgget */ - 586, /* msgctl */ - 587, /* msgsnd */ - 588, /* msgrcv */ - 589, /* semop */ - 590, /* semget */ - 591, /* semctl */ - 592, /* require */ - 593, /* dofile */ + 0, /* localtime */ + 52, /* gmtime */ + 0, /* alarm */ + 93, /* sleep */ + 52, /* shmget */ + 52, /* shmctl */ + 52, /* shmread */ + 52, /* shmwrite */ + 52, /* msgget */ + 52, /* msgctl */ + 52, /* msgsnd */ + 52, /* msgrcv */ + 52, /* semop */ + 52, /* semget */ + 52, /* semctl */ + 0, /* require */ + 0, /* dofile */ -1, /* hintseval */ - 594, /* entereval */ - 600, /* leaveeval */ - 602, /* entertry */ + 207, /* entereval */ + 174, /* leaveeval */ + 0, /* entertry */ -1, /* leavetry */ - 603, /* ghbyname */ - 604, /* ghbyaddr */ + 0, /* ghbyname */ + 52, /* ghbyaddr */ -1, /* ghostent */ - 605, /* gnbyname */ - 606, /* gnbyaddr */ + 0, /* gnbyname */ + 52, /* gnbyaddr */ -1, /* gnetent */ - 607, /* gpbyname */ - 608, /* gpbynumber */ + 0, /* gpbyname */ + 52, /* gpbynumber */ -1, /* gprotoent */ - 609, /* gsbyname */ - 610, /* gsbyport */ + 52, /* gsbyname */ + 52, /* gsbyport */ -1, /* gservent */ - 611, /* shostent */ - 612, /* snetent */ - 613, /* sprotoent */ - 614, /* sservent */ + 0, /* shostent */ + 0, /* snetent */ + 0, /* sprotoent */ + 0, /* sservent */ -1, /* ehostent */ -1, /* enetent */ -1, /* eprotoent */ -1, /* eservent */ - 615, /* gpwnam */ - 616, /* gpwuid */ + 0, /* gpwnam */ + 0, /* gpwuid */ -1, /* gpwent */ -1, /* spwent */ -1, /* epwent */ - 617, /* ggrnam */ - 618, /* ggrgid */ + 0, /* ggrnam */ + 0, /* ggrgid */ -1, /* ggrent */ -1, /* sgrent */ -1, /* egrent */ -1, /* getlogin */ - 619, /* syscall */ - 620, /* lock */ - 621, /* once */ + 52, /* syscall */ + 0, /* lock */ + 0, /* once */ -1, /* custom */ - 622, /* reach */ - 623, /* rkeys */ - 625, /* rvalues */ - 626, /* coreargs */ - 630, /* runcv */ - 631, /* fc */ + 213, /* coreargs */ + 217, /* avhvswitch */ + 3, /* runcv */ + 0, /* fc */ -1, /* padcv */ -1, /* introcv */ -1, /* clonecv */ - 632, /* padrange */ - 634, /* refassign */ - 640, /* lvref */ - 646, /* lvrefslice */ - 647, /* lvavref */ + 219, /* padrange */ + 221, /* refassign */ + 227, /* lvref */ + 233, /* lvrefslice */ + 234, /* lvavref */ + 0, /* anonconst */ + 12, /* isa */ + 0, /* cmpchain_and */ + 0, /* cmpchain_dup */ }; @@ -2766,350 +2868,76 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { */ EXTCONST U16 PL_op_private_bitdefs[] = { - /* scalar */ 0x0003, - /* pushmark */ 0x281c, 0x3a19, - /* wantarray */ 0x00bd, - /* const */ 0x03b8, 0x1490, 0x3acc, 0x3588, 0x2be5, - /* gvsv */ 0x281c, 0x2d39, - /* gv */ 0x12f5, - /* gelem */ 0x0067, - /* padsv */ 0x281c, 0x3a18, 0x0257, - /* padav */ 0x281c, 0x3a18, 0x290c, 0x3709, - /* padhv */ 0x281c, 0x3a18, 0x0534, 0x05d0, 0x290c, 0x3709, - /* pushre */ 0x34d9, - /* rv2gv */ 0x281c, 0x1598, 0x0256, 0x290c, 0x2b08, 0x3ac4, 0x0003, - /* rv2sv */ 0x281c, 0x2d38, 0x0256, 0x3ac4, 0x0003, - /* av2arylen */ 0x290c, 0x0003, - /* rv2cv */ 0x2a7c, 0x0b98, 0x08f4, 0x028c, 0x3c88, 0x3ac4, 0x0003, - /* prototype */ 0x0003, - /* refgen */ 0x0003, - /* srefgen */ 0x0003, - /* ref */ 0x0003, - /* bless */ 0x012f, - /* backtick */ 0x2f1c, 0x2e38, 0x22f4, 0x2230, 0x0003, - /* glob */ 0x012f, - /* readline */ 0x0003, - /* regcmaybe */ 0x0003, - /* regcreset */ 0x0003, - /* regcomp */ 0x0003, - /* match */ 0x34d8, 0x3d31, - /* qr */ 0x34d9, - /* subst */ 0x34d8, 0x3d31, - /* substcont */ 0x34d8, 0x0003, - /* trans */ 0x0c9c, 0x1c18, 0x0834, 0x3d30, 0x384c, 0x1fa8, 0x01e4, 0x0141, - /* transr */ 0x0c9c, 0x1c18, 0x0834, 0x3d30, 0x384c, 0x1fa8, 0x01e4, 0x0141, - /* sassign */ 0x0adc, 0x0458, 0x0067, - /* aassign */ 0x0758, 0x290c, 0x0067, - /* chop */ 0x0003, - /* schop */ 0x0003, - /* chomp */ 0x3d30, 0x0003, - /* schomp */ 0x3d30, 0x0003, - /* defined */ 0x0003, - /* undef */ 0x0003, - /* study */ 0x0003, - /* pos */ 0x290c, 0x0003, - /* preinc */ 0x0003, - /* i_preinc */ 0x0003, - /* predec */ 0x0003, - /* i_predec */ 0x0003, - /* postinc */ 0x0003, - /* i_postinc */ 0x3d30, 0x0003, - /* postdec */ 0x0003, - /* i_postdec */ 0x3d30, 0x0003, - /* pow */ 0x3d30, 0x0067, - /* multiply */ 0x3d30, 0x0067, - /* i_multiply */ 0x3d30, 0x0067, - /* divide */ 0x3d30, 0x0067, - /* i_divide */ 0x3d30, 0x0067, - /* modulo */ 0x3d30, 0x0067, - /* i_modulo */ 0x3d30, 0x0067, - /* repeat */ 0x0f78, 0x3d30, 0x0067, - /* add */ 0x3d30, 0x0067, - /* i_add */ 0x3d30, 0x0067, - /* subtract */ 0x3d30, 0x0067, - /* i_subtract */ 0x3d30, 0x0067, - /* concat */ 0x3d30, 0x0067, - /* stringify */ 0x3d30, 0x012f, - /* left_shift */ 0x3d30, 0x0067, - /* right_shift */ 0x3d30, 0x0067, - /* lt */ 0x0067, - /* i_lt */ 0x0067, - /* gt */ 0x0067, - /* i_gt */ 0x0067, - /* le */ 0x0067, - /* i_le */ 0x0067, - /* ge */ 0x0067, - /* i_ge */ 0x0067, - /* eq */ 0x0067, - /* i_eq */ 0x0067, - /* ne */ 0x0067, - /* i_ne */ 0x0067, - /* ncmp */ 0x0067, - /* i_ncmp */ 0x0067, - /* slt */ 0x0067, - /* sgt */ 0x0067, - /* sle */ 0x0067, - /* sge */ 0x0067, - /* seq */ 0x0067, - /* sne */ 0x0067, - /* scmp */ 0x0067, - /* bit_and */ 0x0067, - /* bit_xor */ 0x0067, - /* bit_or */ 0x0067, - /* negate */ 0x0003, - /* i_negate */ 0x3d30, 0x0003, - /* not */ 0x0003, - /* complement */ 0x0003, - /* smartmatch */ 0x0067, - /* atan2 */ 0x3d30, 0x012f, - /* sin */ 0x3d30, 0x0003, - /* cos */ 0x3d30, 0x0003, - /* rand */ 0x3d30, 0x012f, - /* srand */ 0x3d30, 0x012f, - /* exp */ 0x3d30, 0x0003, - /* log */ 0x3d30, 0x0003, - /* sqrt */ 0x3d30, 0x0003, - /* int */ 0x3d30, 0x0003, - /* hex */ 0x3d30, 0x0003, - /* oct */ 0x3d30, 0x0003, - /* abs */ 0x3d30, 0x0003, - /* length */ 0x3d30, 0x0003, - /* substr */ 0x3230, 0x290c, 0x00cb, - /* vec */ 0x3d30, 0x290c, 0x0067, - /* index */ 0x3d30, 0x012f, - /* rindex */ 0x3d30, 0x012f, - /* sprintf */ 0x012f, - /* formline */ 0x012f, - /* ord */ 0x3d30, 0x0003, - /* chr */ 0x3d30, 0x0003, - /* crypt */ 0x3d30, 0x012f, - /* ucfirst */ 0x0003, - /* lcfirst */ 0x0003, - /* uc */ 0x0003, - /* lc */ 0x0003, - /* quotemeta */ 0x0003, - /* rv2av */ 0x281c, 0x2d38, 0x290c, 0x3708, 0x3ac4, 0x0003, - /* aelemfast */ 0x01ff, - /* aelemfast_lex */ 0x01ff, - /* aelem */ 0x281c, 0x2718, 0x0256, 0x290c, 0x0067, - /* aslice */ 0x281c, 0x290c, 0x3709, - /* kvaslice */ 0x290d, - /* aeach */ 0x0003, - /* akeys */ 0x0003, - /* avalues */ 0x0003, - /* each */ 0x0003, - /* values */ 0x0003, - /* keys */ 0x290c, 0x0003, - /* delete */ 0x281c, 0x3658, 0x0003, - /* exists */ 0x3bb8, 0x0003, - /* rv2hv */ 0x281c, 0x2d38, 0x0534, 0x05d0, 0x290c, 0x3708, 0x3ac4, 0x0003, - /* helem */ 0x281c, 0x2718, 0x0256, 0x290c, 0x0067, - /* hslice */ 0x281c, 0x290c, 0x3709, - /* kvhslice */ 0x290d, - /* unpack */ 0x012f, - /* pack */ 0x012f, - /* split */ 0x207c, 0x2d39, - /* join */ 0x012f, - /* list */ 0x281c, 0x1cd9, - /* lslice */ 0x0067, - /* anonlist */ 0x012f, - /* anonhash */ 0x012f, - /* splice */ 0x012f, - /* push */ 0x3d30, 0x012f, - /* pop */ 0x0003, - /* shift */ 0x0003, - /* unshift */ 0x3d30, 0x012f, - /* sort */ 0x3938, 0x2fd4, 0x0ed0, 0x238c, 0x3328, 0x2484, 0x2ca1, - /* reverse */ 0x238c, 0x0003, - /* grepstart */ 0x1b05, - /* grepwhile */ 0x1b04, 0x0003, - /* mapstart */ 0x1b05, - /* mapwhile */ 0x1b04, 0x0003, - /* range */ 0x0003, - /* flip */ 0x25b8, 0x0003, - /* flop */ 0x25b8, 0x0003, - /* and */ 0x0003, - /* or */ 0x0003, - /* xor */ 0x0067, - /* dor */ 0x0003, - /* cond_expr */ 0x281c, 0x0003, - /* andassign */ 0x0003, - /* orassign */ 0x0003, - /* dorassign */ 0x0003, - /* method */ 0x0003, - /* entersub */ 0x281c, 0x0b98, 0x0256, 0x028c, 0x3c88, 0x3ac4, 0x2141, - /* leavesub */ 0x3098, 0x0003, - /* leavesublv */ 0x3098, 0x0003, - /* caller */ 0x00bc, 0x012f, - /* warn */ 0x012f, - /* die */ 0x012f, - /* reset */ 0x012f, - /* nextstate */ 0x40dc, 0x3f18, 0x1eb5, - /* dbstate */ 0x40dc, 0x3f18, 0x1eb5, - /* leave */ 0x26bc, 0x3099, - /* enteriter */ 0x281c, 0x2d38, 0x0c0c, 0x33a9, - /* iter */ 0x33a9, - /* leaveloop */ 0x26bc, 0x0067, - /* last */ 0x3e9c, 0x0003, - /* next */ 0x3e9c, 0x0003, - /* redo */ 0x3e9c, 0x0003, - /* dump */ 0x3e9c, 0x0003, - /* goto */ 0x3e9c, 0x0003, - /* exit */ 0x012f, - /* method_named */ 0x0003, - /* entergiven */ 0x0003, - /* leavegiven */ 0x0003, - /* enterwhen */ 0x0003, - /* leavewhen */ 0x0003, - /* open */ 0x2f1c, 0x2e38, 0x22f4, 0x2230, 0x012f, - /* close */ 0x012f, - /* pipe_op */ 0x012f, - /* fileno */ 0x012f, - /* umask */ 0x012f, - /* binmode */ 0x012f, - /* tie */ 0x012f, - /* untie */ 0x0003, - /* tied */ 0x0003, - /* dbmopen */ 0x012f, - /* dbmclose */ 0x0003, - /* sselect */ 0x012f, - /* select */ 0x012f, - /* getc */ 0x012f, - /* read */ 0x012f, - /* enterwrite */ 0x012f, - /* leavewrite */ 0x3098, 0x0003, - /* sysopen */ 0x012f, - /* sysseek */ 0x012f, - /* sysread */ 0x012f, - /* syswrite */ 0x012f, - /* eof */ 0x012f, - /* tell */ 0x012f, - /* seek */ 0x012f, - /* truncate */ 0x012f, - /* fcntl */ 0x012f, - /* ioctl */ 0x012f, - /* flock */ 0x3d30, 0x012f, - /* send */ 0x012f, - /* recv */ 0x012f, - /* socket */ 0x012f, - /* sockpair */ 0x012f, - /* bind */ 0x012f, - /* connect */ 0x012f, - /* listen */ 0x012f, - /* accept */ 0x012f, - /* shutdown */ 0x012f, - /* gsockopt */ 0x012f, - /* ssockopt */ 0x012f, - /* getsockname */ 0x0003, - /* getpeername */ 0x0003, - /* lstat */ 0x0003, - /* stat */ 0x0003, - /* ftrread */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* ftrwrite */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* ftrexec */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* fteread */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* ftewrite */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* fteexec */ 0x1750, 0x19ac, 0x1868, 0x1624, 0x0003, - /* ftis */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftsize */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftmtime */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftatime */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftctime */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftrowned */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* fteowned */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftzero */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftsock */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftchr */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftblk */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftfile */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftdir */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftpipe */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftsuid */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftsgid */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftsvtx */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftlink */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* fttty */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* fttext */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* ftbinary */ 0x1750, 0x19ac, 0x1868, 0x0003, - /* chdir */ 0x3d30, 0x012f, - /* chown */ 0x3d30, 0x012f, - /* chroot */ 0x3d30, 0x0003, - /* unlink */ 0x3d30, 0x012f, - /* chmod */ 0x3d30, 0x012f, - /* utime */ 0x3d30, 0x012f, - /* rename */ 0x3d30, 0x012f, - /* link */ 0x3d30, 0x012f, - /* symlink */ 0x3d30, 0x012f, - /* readlink */ 0x0003, - /* mkdir */ 0x3d30, 0x012f, - /* rmdir */ 0x3d30, 0x0003, - /* open_dir */ 0x012f, - /* readdir */ 0x0003, - /* telldir */ 0x0003, - /* seekdir */ 0x012f, - /* rewinddir */ 0x0003, - /* closedir */ 0x0003, - /* wait */ 0x3d31, - /* waitpid */ 0x3d30, 0x012f, - /* system */ 0x3d30, 0x012f, - /* exec */ 0x3d30, 0x012f, - /* kill */ 0x3d30, 0x012f, - /* getppid */ 0x3d31, - /* getpgrp */ 0x3d30, 0x012f, - /* setpgrp */ 0x3d30, 0x012f, - /* getpriority */ 0x3d30, 0x012f, - /* setpriority */ 0x3d30, 0x012f, - /* time */ 0x3d31, - /* localtime */ 0x0003, - /* gmtime */ 0x012f, - /* alarm */ 0x0003, - /* sleep */ 0x3d30, 0x012f, - /* shmget */ 0x012f, - /* shmctl */ 0x012f, - /* shmread */ 0x012f, - /* shmwrite */ 0x012f, - /* msgget */ 0x012f, - /* msgctl */ 0x012f, - /* msgsnd */ 0x012f, - /* msgrcv */ 0x012f, - /* semop */ 0x012f, - /* semget */ 0x012f, - /* semctl */ 0x012f, - /* require */ 0x0003, - /* dofile */ 0x0003, - /* entereval */ 0x3134, 0x09b0, 0x068c, 0x3e08, 0x1dc4, 0x0003, - /* leaveeval */ 0x3098, 0x0003, - /* entertry */ 0x0003, - /* ghbyname */ 0x0003, - /* ghbyaddr */ 0x012f, - /* gnbyname */ 0x0003, - /* gnbyaddr */ 0x012f, - /* gpbyname */ 0x0003, - /* gpbynumber */ 0x012f, - /* gsbyname */ 0x012f, - /* gsbyport */ 0x012f, - /* shostent */ 0x0003, - /* snetent */ 0x0003, - /* sprotoent */ 0x0003, - /* sservent */ 0x0003, - /* gpwnam */ 0x0003, - /* gpwuid */ 0x0003, - /* ggrnam */ 0x0003, - /* ggrgid */ 0x0003, - /* syscall */ 0x012f, - /* lock */ 0x0003, - /* once */ 0x0003, - /* reach */ 0x0003, - /* rkeys */ 0x290c, 0x0003, - /* rvalues */ 0x0003, - /* coreargs */ 0x29dc, 0x0018, 0x0de4, 0x0d01, - /* runcv */ 0x00bd, - /* fc */ 0x0003, - /* padrange */ 0x281c, 0x019b, - /* refassign */ 0x281c, 0x3a18, 0x0376, 0x250c, 0x13e8, 0x0067, - /* lvref */ 0x281c, 0x3a18, 0x0376, 0x250c, 0x13e8, 0x0003, - /* lvrefslice */ 0x281d, - /* lvavref */ 0x281c, 0x3a18, 0x0003, + 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, argdefelem, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst, cmpchain_and, cmpchain_dup */ + 0x2fdc, 0x41b9, /* pushmark */ + 0x00bd, /* wantarray, runcv */ + 0x0438, 0x1a50, 0x426c, 0x3d28, 0x3505, /* const */ + 0x2fdc, 0x3659, /* gvsv */ + 0x18b5, /* gv */ + 0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, i_ncmp, slt, sgt, sle, sge, seq, sne, scmp, bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, smartmatch, lslice, xor, isa */ + 0x2fdc, 0x41b8, 0x03d7, /* padsv */ + 0x2fdc, 0x41b8, 0x05b4, 0x30cc, 0x3ea9, /* padav */ + 0x2fdc, 0x41b8, 0x05b4, 0x0650, 0x30cc, 0x3ea8, 0x2b41, /* padhv */ + 0x2fdc, 0x1c38, 0x03d6, 0x30cc, 0x3428, 0x4264, 0x0003, /* rv2gv */ + 0x2fdc, 0x3658, 0x03d6, 0x4264, 0x0003, /* rv2sv */ + 0x30cc, 0x0003, /* av2arylen, akeys, values, keys */ + 0x339c, 0x1078, 0x0dd4, 0x014c, 0x4568, 0x4264, 0x0003, /* rv2cv */ + 0x05b4, 0x0650, 0x0003, /* ref */ + 0x018f, /* bless, glob, sprintf, formline, unpack, pack, join, anonlist, anonhash, splice, warn, die, reset, exit, close, pipe_op, fileno, umask, binmode, tie, dbmopen, sselect, select, getc, read, enterwrite, sysopen, sysseek, sysread, syswrite, eof, tell, seek, truncate, fcntl, ioctl, send, recv, socket, sockpair, bind, connect, listen, accept, shutdown, gsockopt, ssockopt, open_dir, seekdir, gmtime, shmget, shmctl, shmread, shmwrite, msgget, msgctl, msgsnd, msgrcv, semop, semget, semctl, ghbyaddr, gnbyaddr, gpbynumber, gsbyname, gsbyport, syscall */ + 0x383c, 0x3758, 0x2894, 0x27d0, 0x0003, /* backtick */ + 0x05b5, /* subst */ + 0x117c, 0x21b8, 0x09b4, 0x3fec, 0x2548, 0x4884, 0x07c1, /* trans, transr */ + 0x0fbc, 0x04d8, 0x0067, /* sassign */ + 0x0c78, 0x0b74, 0x0a70, 0x30cc, 0x05a8, 0x0067, /* aassign */ + 0x4610, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir */ + 0x05b4, 0x30cc, 0x0003, /* pos */ + 0x4610, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */ + 0x1538, 0x0067, /* repeat */ + 0x32b8, 0x4610, 0x0067, /* concat */ + 0x2fdc, 0x0218, 0x1c34, 0x4610, 0x434c, 0x0003, /* multiconcat */ + 0x4610, 0x018f, /* stringify, atan2, rand, srand, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ + 0x05b4, 0x4610, 0x0003, /* length */ + 0x3a90, 0x30cc, 0x012b, /* substr */ + 0x30cc, 0x0067, /* vec */ + 0x3238, 0x05b4, 0x4610, 0x018f, /* index, rindex */ + 0x2fdc, 0x3658, 0x05b4, 0x30cc, 0x3ea8, 0x4264, 0x0003, /* rv2av */ + 0x025f, /* aelemfast, aelemfast_lex */ + 0x2fdc, 0x2ed8, 0x03d6, 0x30cc, 0x0067, /* aelem, helem */ + 0x2fdc, 0x30cc, 0x3ea9, /* aslice, hslice */ + 0x30cd, /* kvaslice, kvhslice */ + 0x2fdc, 0x3df8, 0x2bf4, 0x0003, /* delete */ + 0x4498, 0x0003, /* exists */ + 0x2fdc, 0x3658, 0x05b4, 0x0650, 0x30cc, 0x3ea8, 0x4264, 0x2b41, /* rv2hv */ + 0x2fdc, 0x2ed8, 0x11f4, 0x1b50, 0x30cc, 0x4264, 0x0003, /* multideref */ + 0x2fdc, 0x3658, 0x02f0, 0x2cec, 0x2609, /* split */ + 0x2fdc, 0x2279, /* list */ + 0x477c, 0x40d8, 0x1490, 0x292c, 0x3b88, 0x2a24, 0x35c1, /* sort */ + 0x292c, 0x0003, /* reverse */ + 0x05b4, 0x0003, /* grepwhile */ + 0x2d78, 0x0003, /* flip, flop */ + 0x2fdc, 0x0003, /* cond_expr */ + 0x2fdc, 0x1078, 0x03d6, 0x014c, 0x4568, 0x4264, 0x26e1, /* entersub */ + 0x38f8, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ + 0x02aa, 0x0003, /* argelem */ + 0x00bc, 0x018f, /* caller */ + 0x2455, /* nextstate, dbstate */ + 0x2e7c, 0x38f9, /* leave */ + 0x2fdc, 0x3658, 0x10ec, 0x3c05, /* enteriter */ + 0x3c05, /* iter */ + 0x2e7c, 0x0067, /* leaveloop */ + 0x49bc, 0x0003, /* last, next, redo, dump, goto */ + 0x383c, 0x3758, 0x2894, 0x27d0, 0x018f, /* open */ + 0x1df0, 0x204c, 0x1f08, 0x1cc4, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ + 0x1df0, 0x204c, 0x1f08, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ + 0x4611, /* wait, getppid, time */ + 0x3994, 0x0e90, 0x070c, 0x46e8, 0x2364, 0x0003, /* entereval */ + 0x319c, 0x0018, 0x13a4, 0x12c1, /* coreargs */ + 0x30cc, 0x00c7, /* avhvswitch */ + 0x2fdc, 0x01fb, /* padrange */ + 0x2fdc, 0x41b8, 0x04f6, 0x2aac, 0x19a8, 0x0067, /* refassign */ + 0x2fdc, 0x41b8, 0x04f6, 0x2aac, 0x19a8, 0x0003, /* lvref */ + 0x2fdd, /* lvrefslice */ + 0x2fdc, 0x41b8, 0x0003, /* lvavref */ }; @@ -3128,10 +2956,9 @@ EXTCONST U8 PL_op_private_valid[] = { /* GV */ (OPpEARLY_CV), /* GELEM */ (OPpARG2_MASK), /* PADSV */ (OPpDEREF|OPpPAD_STATE|OPpLVAL_INTRO), - /* PADAV */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpPAD_STATE|OPpLVAL_INTRO), - /* PADHV */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpPAD_STATE|OPpLVAL_INTRO), + /* PADAV */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpTRUEBOOL|OPpPAD_STATE|OPpLVAL_INTRO), + /* PADHV */ (OPpPADHV_ISKEYS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpPAD_STATE|OPpLVAL_INTRO), /* PADANY */ (0), - /* PUSHRE */ (OPpRUNTIME), /* RV2GV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDONT_INIT_GV|OPpMAYBE_LVSUB|OPpDEREF|OPpALLOW_FAKE|OPpLVAL_INTRO), /* RV2SV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDEREF|OPpOUR_INTRO|OPpLVAL_INTRO), /* AV2ARYLEN */ (OPpARG1_MASK|OPpMAYBE_LVSUB), @@ -3140,7 +2967,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* PROTOTYPE */ (OPpARG1_MASK), /* REFGEN */ (OPpARG1_MASK), /* SREFGEN */ (OPpARG1_MASK), - /* REF */ (OPpARG1_MASK), + /* REF */ (OPpARG1_MASK|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL), /* BLESS */ (OPpARG4_MASK), /* BACKTICK */ (OPpARG1_MASK|OPpOPEN_IN_RAW|OPpOPEN_IN_CRLF|OPpOPEN_OUT_RAW|OPpOPEN_OUT_CRLF), /* GLOB */ (OPpARG4_MASK), @@ -3149,14 +2976,14 @@ EXTCONST U8 PL_op_private_valid[] = { /* REGCMAYBE */ (OPpARG1_MASK), /* REGCRESET */ (OPpARG1_MASK), /* REGCOMP */ (OPpARG1_MASK), - /* MATCH */ (OPpTARGET_MY|OPpRUNTIME), - /* QR */ (OPpRUNTIME), - /* SUBST */ (OPpTARGET_MY|OPpRUNTIME), - /* SUBSTCONT */ (OPpARG1_MASK|OPpRUNTIME), - /* TRANS */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTARGET_MY|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), - /* TRANSR */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTARGET_MY|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), + /* MATCH */ (0), + /* QR */ (0), + /* SUBST */ (OPpTRUEBOOL), + /* SUBSTCONT */ (OPpARG1_MASK), + /* TRANS */ (OPpTRANS_CAN_FORCE_UTF8|OPpTRANS_USE_SVOP|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), + /* TRANSR */ (OPpTRANS_CAN_FORCE_UTF8|OPpTRANS_USE_SVOP|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), /* SASSIGN */ (OPpARG2_MASK|OPpASSIGN_BACKWARDS|OPpASSIGN_CV_TO_GV), - /* AASSIGN */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpASSIGN_COMMON), + /* AASSIGN */ (OPpARG2_MASK|OPpASSIGN_TRUEBOOL|OPpMAYBE_LVSUB|OPpASSIGN_COMMON_AGG|OPpASSIGN_COMMON_RC1|OPpASSIGN_COMMON_SCALAR), /* CHOP */ (OPpARG1_MASK), /* SCHOP */ (OPpARG1_MASK), /* CHOMP */ (OPpARG1_MASK|OPpTARGET_MY), @@ -3164,15 +2991,15 @@ EXTCONST U8 PL_op_private_valid[] = { /* DEFINED */ (OPpARG1_MASK), /* UNDEF */ (OPpARG1_MASK), /* STUDY */ (OPpARG1_MASK), - /* POS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), + /* POS */ (OPpARG1_MASK|OPpMAYBE_LVSUB|OPpTRUEBOOL), /* PREINC */ (OPpARG1_MASK), /* I_PREINC */ (OPpARG1_MASK), /* PREDEC */ (OPpARG1_MASK), /* I_PREDEC */ (OPpARG1_MASK), /* POSTINC */ (OPpARG1_MASK), - /* I_POSTINC */ (OPpARG1_MASK|OPpTARGET_MY), + /* I_POSTINC */ (OPpARG1_MASK), /* POSTDEC */ (OPpARG1_MASK), - /* I_POSTDEC */ (OPpARG1_MASK|OPpTARGET_MY), + /* I_POSTDEC */ (OPpARG1_MASK), /* POW */ (OPpARG2_MASK|OPpTARGET_MY), /* MULTIPLY */ (OPpARG2_MASK|OPpTARGET_MY), /* I_MULTIPLY */ (OPpARG2_MASK|OPpTARGET_MY), @@ -3180,12 +3007,13 @@ EXTCONST U8 PL_op_private_valid[] = { /* I_DIVIDE */ (OPpARG2_MASK|OPpTARGET_MY), /* MODULO */ (OPpARG2_MASK|OPpTARGET_MY), /* I_MODULO */ (OPpARG2_MASK|OPpTARGET_MY), - /* REPEAT */ (OPpARG2_MASK|OPpTARGET_MY|OPpREPEAT_DOLIST), + /* REPEAT */ (OPpARG2_MASK|OPpREPEAT_DOLIST), /* ADD */ (OPpARG2_MASK|OPpTARGET_MY), /* I_ADD */ (OPpARG2_MASK|OPpTARGET_MY), /* SUBTRACT */ (OPpARG2_MASK|OPpTARGET_MY), /* I_SUBTRACT */ (OPpARG2_MASK|OPpTARGET_MY), - /* CONCAT */ (OPpARG2_MASK|OPpTARGET_MY), + /* CONCAT */ (OPpARG2_MASK|OPpTARGET_MY|OPpCONCAT_NESTED), + /* MULTICONCAT */ (OPpARG1_MASK|OPpMULTICONCAT_STRINGIFY|OPpTARGET_MY|OPpMULTICONCAT_FAKE|OPpMULTICONCAT_APPEND|OPpLVAL_INTRO), /* STRINGIFY */ (OPpARG4_MASK|OPpTARGET_MY), /* LEFT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY), /* RIGHT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY), @@ -3213,10 +3041,18 @@ EXTCONST U8 PL_op_private_valid[] = { /* BIT_AND */ (OPpARG2_MASK), /* BIT_XOR */ (OPpARG2_MASK), /* BIT_OR */ (OPpARG2_MASK), + /* NBIT_AND */ (OPpARG2_MASK|OPpTARGET_MY), + /* NBIT_XOR */ (OPpARG2_MASK|OPpTARGET_MY), + /* NBIT_OR */ (OPpARG2_MASK|OPpTARGET_MY), + /* SBIT_AND */ (OPpARG2_MASK), + /* SBIT_XOR */ (OPpARG2_MASK), + /* SBIT_OR */ (OPpARG2_MASK), /* NEGATE */ (OPpARG1_MASK), - /* I_NEGATE */ (OPpARG1_MASK|OPpTARGET_MY), + /* I_NEGATE */ (OPpARG1_MASK), /* NOT */ (OPpARG1_MASK), /* COMPLEMENT */ (OPpARG1_MASK), + /* NCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), + /* SCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), /* SMARTMATCH */ (OPpARG2_MASK), /* ATAN2 */ (OPpARG4_MASK|OPpTARGET_MY), /* SIN */ (OPpARG1_MASK|OPpTARGET_MY), @@ -3230,11 +3066,11 @@ EXTCONST U8 PL_op_private_valid[] = { /* HEX */ (OPpARG1_MASK|OPpTARGET_MY), /* OCT */ (OPpARG1_MASK|OPpTARGET_MY), /* ABS */ (OPpARG1_MASK|OPpTARGET_MY), - /* LENGTH */ (OPpARG1_MASK|OPpTARGET_MY), + /* LENGTH */ (OPpARG1_MASK|OPpTARGET_MY|OPpTRUEBOOL), /* SUBSTR */ (OPpARG3_MASK|OPpMAYBE_LVSUB|OPpSUBSTR_REPL_FIRST), - /* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpTARGET_MY), - /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY), - /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY), + /* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB), + /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY|OPpTRUEBOOL|OPpINDEX_BOOLNEG), + /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY|OPpTRUEBOOL|OPpINDEX_BOOLNEG), /* SPRINTF */ (OPpARG4_MASK), /* FORMLINE */ (OPpARG4_MASK), /* ORD */ (OPpARG1_MASK|OPpTARGET_MY), @@ -3245,27 +3081,28 @@ EXTCONST U8 PL_op_private_valid[] = { /* UC */ (OPpARG1_MASK), /* LC */ (OPpARG1_MASK), /* QUOTEMETA */ (OPpARG1_MASK), - /* RV2AV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpOUR_INTRO|OPpLVAL_INTRO), + /* RV2AV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO), /* AELEMFAST */ (255), /* AELEMFAST_LEX */ (255), /* AELEM */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO), /* ASLICE */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO), /* KVASLICE */ (OPpMAYBE_LVSUB), /* AEACH */ (OPpARG1_MASK), - /* AKEYS */ (OPpARG1_MASK), /* AVALUES */ (OPpARG1_MASK), + /* AKEYS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), /* EACH */ (OPpARG1_MASK), - /* VALUES */ (OPpARG1_MASK), + /* VALUES */ (OPpARG1_MASK|OPpMAYBE_LVSUB), /* KEYS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), - /* DELETE */ (OPpARG1_MASK|OPpSLICE|OPpLVAL_INTRO), + /* DELETE */ (OPpARG1_MASK|OPpKVSLICE|OPpSLICE|OPpLVAL_INTRO), /* EXISTS */ (OPpARG1_MASK|OPpEXISTS_SUB), - /* RV2HV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO), + /* RV2HV */ (OPpRV2HV_ISKEYS|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO), /* HELEM */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO), /* HSLICE */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO), /* KVHSLICE */ (OPpMAYBE_LVSUB), + /* MULTIDEREF */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpMAYBE_LVSUB|OPpMULTIDEREF_EXISTS|OPpMULTIDEREF_DELETE|OPpLVAL_DEFER|OPpLVAL_INTRO), /* UNPACK */ (OPpARG4_MASK), /* PACK */ (OPpARG4_MASK), - /* SPLIT */ (OPpOUR_INTRO|OPpSPLIT_IMPLIM), + /* SPLIT */ (OPpSPLIT_IMPLIM|OPpSPLIT_LEX|OPpSPLIT_ASSIGN|OPpOUR_INTRO|OPpLVAL_INTRO), /* JOIN */ (OPpARG4_MASK), /* LIST */ (OPpLIST_GUESSED|OPpLVAL_INTRO), /* LSLICE */ (OPpARG2_MASK), @@ -3276,12 +3113,12 @@ EXTCONST U8 PL_op_private_valid[] = { /* POP */ (OPpARG1_MASK), /* SHIFT */ (OPpARG1_MASK), /* UNSHIFT */ (OPpARG4_MASK|OPpTARGET_MY), - /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE), + /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_STABLE|OPpSORT_UNSTABLE), /* REVERSE */ (OPpARG1_MASK|OPpREVERSE_INPLACE), - /* GREPSTART */ (OPpGREP_LEX), - /* GREPWHILE */ (OPpARG1_MASK|OPpGREP_LEX), - /* MAPSTART */ (OPpGREP_LEX), - /* MAPWHILE */ (OPpARG1_MASK|OPpGREP_LEX), + /* GREPSTART */ (OPpARG1_MASK), + /* GREPWHILE */ (OPpARG1_MASK|OPpTRUEBOOL), + /* MAPSTART */ (OPpARG1_MASK), + /* MAPWHILE */ (OPpARG1_MASK), /* RANGE */ (OPpARG1_MASK), /* FLIP */ (OPpARG1_MASK|OPpFLIP_LINENUM), /* FLOP */ (OPpARG1_MASK|OPpFLIP_LINENUM), @@ -3293,17 +3130,19 @@ EXTCONST U8 PL_op_private_valid[] = { /* ANDASSIGN */ (OPpARG1_MASK), /* ORASSIGN */ (OPpARG1_MASK), /* DORASSIGN */ (OPpARG1_MASK), - /* METHOD */ (OPpARG1_MASK), /* ENTERSUB */ (OPpENTERSUB_INARGS|OPpHINT_STRICT_REFS|OPpENTERSUB_HASTARG|OPpENTERSUB_AMPER|OPpDEREF|OPpENTERSUB_DB|OPpLVAL_INTRO), /* LEAVESUB */ (OPpARG1_MASK|OPpREFCOUNTED), /* LEAVESUBLV */ (OPpARG1_MASK|OPpREFCOUNTED), + /* ARGCHECK */ (OPpARG1_MASK), + /* ARGELEM */ (OPpARG1_MASK|OPpARGELEM_MASK), + /* ARGDEFELEM */ (OPpARG1_MASK), /* CALLER */ (OPpARG4_MASK|OPpOFFBYONE), /* WARN */ (OPpARG4_MASK), /* DIE */ (OPpARG4_MASK), /* RESET */ (OPpARG4_MASK), /* LINESEQ */ (0), - /* NEXTSTATE */ (OPpHUSH_VMSISH|OPpHINT_M_VMSISH_STATUS|OPpHINT_M_VMSISH_TIME), - /* DBSTATE */ (OPpHUSH_VMSISH|OPpHINT_M_VMSISH_STATUS|OPpHINT_M_VMSISH_TIME), + /* NEXTSTATE */ (OPpHUSH_VMSISH), + /* DBSTATE */ (OPpHUSH_VMSISH), /* UNSTACK */ (0), /* ENTER */ (0), /* LEAVE */ (OPpREFCOUNTED|OPpLVALUE), @@ -3319,7 +3158,11 @@ EXTCONST U8 PL_op_private_valid[] = { /* DUMP */ (OPpARG1_MASK|OPpPV_IS_UTF8), /* GOTO */ (OPpARG1_MASK|OPpPV_IS_UTF8), /* EXIT */ (OPpARG4_MASK), + /* METHOD */ (OPpARG1_MASK), /* METHOD_NAMED */ (OPpARG1_MASK), + /* METHOD_SUPER */ (OPpARG1_MASK), + /* METHOD_REDIR */ (OPpARG1_MASK), + /* METHOD_REDIR_SUPER */ (OPpARG1_MASK), /* ENTERGIVEN */ (OPpARG1_MASK), /* LEAVEGIVEN */ (OPpARG1_MASK), /* ENTERWHEN */ (OPpARG1_MASK), @@ -3487,10 +3330,8 @@ EXTCONST U8 PL_op_private_valid[] = { /* LOCK */ (OPpARG1_MASK), /* ONCE */ (OPpARG1_MASK), /* CUSTOM */ (0xff), - /* REACH */ (OPpARG1_MASK), - /* RKEYS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), - /* RVALUES */ (OPpARG1_MASK), /* COREARGS */ (OPpCOREARGS_DEREF1|OPpCOREARGS_DEREF2|OPpCOREARGS_SCALARMOD|OPpCOREARGS_PUSHMARK), + /* AVHVSWITCH */ (OPpAVHVSWITCH_MASK|OPpMAYBE_LVSUB), /* RUNCV */ (OPpOFFBYONE), /* FC */ (OPpARG1_MASK), /* PADCV */ (0), @@ -3501,11 +3342,14 @@ EXTCONST U8 PL_op_private_valid[] = { /* LVREF */ (OPpARG1_MASK|OPpLVREF_ELEM|OPpLVREF_ITER|OPpLVREF_TYPE|OPpPAD_STATE|OPpLVAL_INTRO), /* LVREFSLICE */ (OPpLVAL_INTRO), /* LVAVREF */ (OPpARG1_MASK|OPpPAD_STATE|OPpLVAL_INTRO), + /* ANONCONST */ (OPpARG1_MASK), + /* ISA */ (OPpARG2_MASK), + /* CMPCHAIN_AND */ (OPpARG1_MASK), + /* CMPCHAIN_DUP */ (OPpARG1_MASK), }; -# endif /* !DOINIT */ -#endif /* !PERL_GLOBAL_STRUCT_INIT */ +#endif /* !DOINIT */ END_EXTERN_C