X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d1455c67c18c86ad9bd01ee14c61c0eb3fe6a483..cf8db57b138fa07b34eff3066c16fa1bf0afdf63:/opcode.h diff --git a/opcode.h b/opcode.h index 0cbf277..24f5a67 100644 --- a/opcode.h +++ b/opcode.h @@ -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,6 @@ #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 START_EXTERN_C #ifndef DOINIT @@ -243,10 +241,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 +288,8 @@ EXTCONST char* const PL_op_name[] = { "aslice", "kvaslice", "aeach", - "akeys", "avalues", + "akeys", "each", "values", "keys", @@ -328,6 +334,9 @@ EXTCONST char* const PL_op_name[] = { "entersub", "leavesub", "leavesublv", + "argcheck", + "argelem", + "argdefelem", "caller", "warn", "die", @@ -521,10 +530,8 @@ EXTCONST char* const PL_op_name[] = { "lock", "once", "custom", - "reach", - "rkeys", - "rvalues", "coreargs", + "avhvswitch", "runcv", "fc", "padcv", @@ -535,6 +542,7 @@ EXTCONST char* const PL_op_name[] = { "lvref", "lvrefslice", "lvavref", + "anonconst", "freed", }; #endif @@ -638,10 +646,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", @@ -677,8 +693,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", @@ -723,6 +739,9 @@ EXTCONST char* const PL_op_desc[] = { "subroutine entry", "subroutine exit", "lvalue subroutine return", + "check subroutine arguments", + "subroutine argument", + "subroutine argument default value", "caller", "warn", "die", @@ -916,10 +935,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", @@ -930,6 +947,7 @@ EXTCONST char* const PL_op_desc[] = { "lvalue ref assignment", "lvalue ref assignment", "lvalue array reference", + "anonymous constant", "freed op", }; #endif @@ -1001,12 +1019,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, @@ -1047,10 +1065,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, @@ -1086,8 +1112,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 */ @@ -1132,6 +1158,9 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ 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, @@ -1325,10 +1354,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, @@ -1339,6 +1366,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_lvref, Perl_pp_lvrefslice, Perl_pp_lvavref, + Perl_pp_anonconst, } #endif #ifdef PERL_PPADDR_INITED @@ -1452,10 +1480,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_bitop, /* scomplement */ Perl_ck_smartmatch, /* smartmatch */ Perl_ck_fun, /* atan2 */ Perl_ck_fun, /* sin */ @@ -1491,8 +1527,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 */ @@ -1537,6 +1573,9 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ 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 */ @@ -1730,10 +1769,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 */ @@ -1744,6 +1781,7 @@ 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 */ } #endif #ifdef PERL_CHECK_INITED @@ -1818,7 +1856,7 @@ EXTCONST U32 PL_opargs[] = { 0x0001121e, /* i_divide */ 0x0001123e, /* modulo */ 0x0001121e, /* i_modulo */ - 0x0001221b, /* repeat */ + 0x0001220b, /* repeat */ 0x0001123e, /* add */ 0x0001121e, /* i_add */ 0x0001123e, /* subtract */ @@ -1840,21 +1878,29 @@ EXTCONST U32 PL_opargs[] = { 0x00011226, /* ne */ 0x00011206, /* i_ne */ 0x0001122e, /* ncmp */ - 0x0001121e, /* i_ncmp */ + 0x0001120e, /* i_ncmp */ 0x00011206, /* slt */ 0x00011206, /* sgt */ 0x00011206, /* sle */ 0x00011206, /* sge */ 0x00011206, /* seq */ 0x00011206, /* sne */ - 0x0001121e, /* scmp */ + 0x0001120e, /* scmp */ 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 */ 0x0000110e, /* i_negate */ 0x00001106, /* not */ 0x0000110e, /* complement */ + 0x0000111e, /* ncomplement */ + 0x0000111e, /* scomplement */ 0x00000204, /* smartmatch */ 0x0001141e, /* atan2 */ 0x00009b9e, /* sin */ @@ -1870,7 +1916,7 @@ EXTCONST U32 PL_opargs[] = { 0x00009b9e, /* abs */ 0x00009b9e, /* length */ 0x0991140c, /* substr */ - 0x0011141c, /* vec */ + 0x0011140c, /* vec */ 0x0091141c, /* index */ 0x0091141c, /* rindex */ 0x0002140f, /* sprintf */ @@ -1890,8 +1936,8 @@ EXTCONST U32 PL_opargs[] = { 0x00023401, /* aslice */ 0x00023401, /* kvaslice */ 0x00003b40, /* aeach */ - 0x00003b08, /* akeys */ 0x00003b48, /* avalues */ + 0x00003b08, /* akeys */ 0x00004b40, /* each */ 0x00004b48, /* values */ 0x00004b08, /* keys */ @@ -1904,7 +1950,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000f44, /* multideref */ 0x00091480, /* unpack */ 0x0002140f, /* pack */ - 0x00111418, /* split */ + 0x00111408, /* split */ 0x0002140f, /* join */ 0x00002401, /* list */ 0x00224200, /* lslice */ @@ -1936,6 +1982,9 @@ EXTCONST U32 PL_opargs[] = { 0x00002141, /* entersub */ 0x00000100, /* leavesub */ 0x00000100, /* leavesublv */ + 0x00000f00, /* argcheck */ + 0x00000f00, /* argelem */ + 0x00000300, /* argdefelem */ 0x00009b08, /* caller */ 0x0000240d, /* warn */ 0x0000240d, /* die */ @@ -2129,10 +2178,8 @@ EXTCONST U32 PL_opargs[] = { 0x00007b04, /* lock */ 0x00000300, /* once */ 0x00000000, /* custom */ - 0x00001b40, /* reach */ - 0x00001b08, /* rkeys */ - 0x00001b48, /* rvalues */ 0x00000600, /* coreargs */ + 0x00000108, /* avhvswitch */ 0x00000004, /* runcv */ 0x00009b8e, /* fc */ 0x00000040, /* padcv */ @@ -2143,6 +2190,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000b40, /* lvref */ 0x00000440, /* lvrefslice */ 0x00000b40, /* lvavref */ + 0x00000144, /* anonconst */ }; #endif @@ -2151,31 +2199,34 @@ EXTCONST U32 PL_opargs[] = { END_EXTERN_C +#define OPpARGELEM_SV 0x00 #define OPpLVREF_SV 0x00 #define OPpARG1_MASK 0x01 #define OPpCOREARGS_DEREF1 0x01 #define OPpENTERSUB_INARGS 0x01 #define OPpSORT_NUMERIC 0x01 #define OPpTRANS_FROM_UTF 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 OPpARG2_MASK 0x03 +#define OPpARGELEM_HV 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 OPpTRANS_IDENTICAL 0x04 +#define OPpARGELEM_MASK 0x06 #define OPpARG3_MASK 0x07 #define OPpPADRANGE_COUNTSHIFT 0x07 #define OPpCONST_STRICT 0x08 @@ -2189,6 +2240,7 @@ END_EXTERN_C #define OPpSORT_INPLACE 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 @@ -2200,6 +2252,7 @@ END_EXTERN_C #define OPpSORT_DESCEND 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 @@ -2217,7 +2270,7 @@ 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 OPpCONST_BARE 0x40 #define OPpCOREARGS_SCALARMOD 0x40 #define OPpENTERSUB_DB 0x40 @@ -2280,8 +2333,10 @@ EXTCONST char PL_op_private_labels[] = { 'B','O','O','L','\0', 'B','O','O','L','?','\0', 'B','Y','T','E','S','\0', - 'C','O','M','M','O','N','\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', @@ -2306,7 +2361,6 @@ EXTCONST char PL_op_private_labels[] = { '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', @@ -2371,12 +2425,14 @@ EXTCONST char PL_op_private_labels[] = { EXTCONST I16 PL_op_private_bitfields[] = { 0, 8, -1, 0, 8, -1, + 0, -1, -1, 0, 8, -1, 0, 8, -1, 0, 8, -1, 0, 8, -1, - 4, -1, 1, 137, 2, 144, 3, 151, -1, - 4, -1, 0, 495, 1, 26, 2, 264, 3, 83, -1, + 1, -1, 0, 507, 1, 26, 2, 276, -1, + 4, -1, 1, 157, 2, 164, 3, 171, -1, + 4, -1, 0, 507, 1, 26, 2, 276, 3, 103, -1, }; @@ -2416,18 +2472,18 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* regcmaybe */ 0, /* regcreset */ 0, /* regcomp */ - 54, /* match */ + 26, /* match */ 26, /* qr */ - 54, /* subst */ - 56, /* substcont */ - 58, /* trans */ - 58, /* transr */ - 66, /* sassign */ - 69, /* aassign */ + 26, /* subst */ + 54, /* substcont */ + 56, /* trans */ + 56, /* transr */ + 63, /* sassign */ + 66, /* aassign */ 0, /* chop */ 0, /* schop */ - 72, /* chomp */ - 72, /* schomp */ + 71, /* chomp */ + 71, /* schomp */ 0, /* defined */ 0, /* undef */ 0, /* study */ @@ -2440,22 +2496,22 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* i_postinc */ 0, /* postdec */ 0, /* i_postdec */ - 74, /* pow */ - 74, /* multiply */ - 74, /* i_multiply */ - 74, /* divide */ - 74, /* i_divide */ - 74, /* modulo */ - 74, /* i_modulo */ - 76, /* repeat */ - 74, /* add */ - 74, /* i_add */ - 74, /* subtract */ - 74, /* i_subtract */ - 74, /* concat */ - 79, /* stringify */ - 74, /* left_shift */ - 74, /* right_shift */ + 73, /* pow */ + 73, /* multiply */ + 73, /* i_multiply */ + 73, /* divide */ + 73, /* i_divide */ + 73, /* modulo */ + 73, /* i_modulo */ + 75, /* repeat */ + 73, /* add */ + 73, /* i_add */ + 73, /* subtract */ + 73, /* i_subtract */ + 73, /* concat */ + 77, /* stringify */ + 73, /* left_shift */ + 73, /* right_shift */ 12, /* lt */ 12, /* i_lt */ 12, /* gt */ @@ -2469,123 +2525,134 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 12, /* ne */ 12, /* i_ne */ 12, /* ncmp */ - 74, /* i_ncmp */ + 12, /* i_ncmp */ 12, /* slt */ 12, /* sgt */ 12, /* sle */ 12, /* sge */ 12, /* seq */ 12, /* sne */ - 74, /* scmp */ + 12, /* scmp */ 12, /* bit_and */ 12, /* bit_xor */ 12, /* bit_or */ + 73, /* nbit_and */ + 73, /* nbit_xor */ + 73, /* nbit_or */ + 12, /* sbit_and */ + 12, /* sbit_xor */ + 12, /* sbit_or */ 0, /* negate */ 0, /* i_negate */ 0, /* not */ 0, /* complement */ + 71, /* ncomplement */ + 71, /* scomplement */ 12, /* smartmatch */ - 79, /* atan2 */ - 72, /* sin */ - 72, /* cos */ - 79, /* rand */ - 79, /* srand */ - 72, /* exp */ - 72, /* log */ - 72, /* sqrt */ - 72, /* int */ - 72, /* hex */ - 72, /* oct */ - 72, /* abs */ - 72, /* length */ - 81, /* substr */ - 84, /* vec */ - 79, /* index */ - 79, /* rindex */ + 77, /* atan2 */ + 71, /* sin */ + 71, /* cos */ + 77, /* rand */ + 77, /* srand */ + 71, /* exp */ + 71, /* log */ + 71, /* sqrt */ + 71, /* int */ + 71, /* hex */ + 71, /* oct */ + 71, /* abs */ + 71, /* length */ + 79, /* substr */ + 82, /* vec */ + 77, /* index */ + 77, /* rindex */ 48, /* sprintf */ 48, /* formline */ - 72, /* ord */ - 72, /* chr */ - 79, /* crypt */ + 71, /* ord */ + 71, /* chr */ + 77, /* crypt */ 0, /* ucfirst */ 0, /* lcfirst */ 0, /* uc */ 0, /* lc */ 0, /* quotemeta */ - 87, /* rv2av */ - 93, /* aelemfast */ - 93, /* aelemfast_lex */ - 94, /* aelem */ - 99, /* aslice */ - 102, /* kvaslice */ + 84, /* rv2av */ + 90, /* aelemfast */ + 90, /* aelemfast_lex */ + 91, /* aelem */ + 96, /* aslice */ + 99, /* kvaslice */ 0, /* aeach */ - 0, /* akeys */ 0, /* avalues */ + 39, /* akeys */ 0, /* each */ 0, /* values */ 39, /* keys */ - 103, /* delete */ - 106, /* exists */ - 108, /* rv2hv */ - 94, /* helem */ - 99, /* hslice */ - 102, /* kvhslice */ - 116, /* multideref */ + 100, /* delete */ + 103, /* exists */ + 105, /* rv2hv */ + 91, /* helem */ + 96, /* hslice */ + 99, /* kvhslice */ + 113, /* multideref */ 48, /* unpack */ 48, /* pack */ - 123, /* split */ + 120, /* split */ 48, /* join */ - 126, /* list */ + 122, /* list */ 12, /* lslice */ 48, /* anonlist */ 48, /* anonhash */ 48, /* splice */ - 79, /* push */ + 77, /* push */ 0, /* pop */ 0, /* shift */ - 79, /* unshift */ - 128, /* sort */ - 135, /* reverse */ - 137, /* grepstart */ - 138, /* grepwhile */ - 137, /* mapstart */ - 138, /* mapwhile */ + 77, /* unshift */ + 124, /* sort */ + 131, /* reverse */ + 0, /* grepstart */ + 0, /* grepwhile */ + 0, /* mapstart */ + 0, /* mapwhile */ 0, /* range */ - 140, /* flip */ - 140, /* flop */ + 133, /* flip */ + 133, /* flop */ 0, /* and */ 0, /* or */ 12, /* xor */ 0, /* dor */ - 142, /* cond_expr */ + 135, /* cond_expr */ 0, /* andassign */ 0, /* orassign */ 0, /* dorassign */ 0, /* method */ - 144, /* entersub */ - 151, /* leavesub */ - 151, /* leavesublv */ - 153, /* caller */ + 137, /* entersub */ + 144, /* leavesub */ + 144, /* leavesublv */ + 0, /* argcheck */ + 146, /* argelem */ + 0, /* argdefelem */ + 148, /* caller */ 48, /* warn */ 48, /* die */ 48, /* reset */ -1, /* lineseq */ - 155, /* nextstate */ - 155, /* dbstate */ + 150, /* nextstate */ + 150, /* dbstate */ -1, /* unstack */ -1, /* enter */ - 156, /* leave */ + 151, /* leave */ -1, /* scope */ - 158, /* enteriter */ - 162, /* iter */ + 153, /* enteriter */ + 157, /* iter */ -1, /* enterloop */ - 163, /* leaveloop */ + 158, /* leaveloop */ -1, /* return */ - 165, /* last */ - 165, /* next */ - 165, /* redo */ - 165, /* dump */ - 165, /* goto */ + 160, /* last */ + 160, /* next */ + 160, /* redo */ + 160, /* dump */ + 160, /* goto */ 48, /* exit */ 0, /* method_named */ 0, /* method_super */ @@ -2597,7 +2664,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* leavewhen */ -1, /* break */ -1, /* continue */ - 167, /* open */ + 162, /* open */ 48, /* close */ 48, /* pipe_op */ 48, /* fileno */ @@ -2613,7 +2680,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 48, /* getc */ 48, /* read */ 48, /* enterwrite */ - 151, /* leavewrite */ + 144, /* leavewrite */ -1, /* prtf */ -1, /* print */ -1, /* say */ @@ -2627,7 +2694,7 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 48, /* truncate */ 48, /* fcntl */ 48, /* ioctl */ - 79, /* flock */ + 77, /* flock */ 48, /* send */ 48, /* recv */ 48, /* socket */ @@ -2643,45 +2710,45 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* getpeername */ 0, /* lstat */ 0, /* stat */ - 172, /* ftrread */ - 172, /* ftrwrite */ - 172, /* ftrexec */ - 172, /* fteread */ - 172, /* ftewrite */ - 172, /* fteexec */ - 177, /* ftis */ - 177, /* ftsize */ - 177, /* ftmtime */ - 177, /* ftatime */ - 177, /* ftctime */ - 177, /* ftrowned */ - 177, /* fteowned */ - 177, /* ftzero */ - 177, /* ftsock */ - 177, /* ftchr */ - 177, /* ftblk */ - 177, /* ftfile */ - 177, /* ftdir */ - 177, /* ftpipe */ - 177, /* ftsuid */ - 177, /* ftsgid */ - 177, /* ftsvtx */ - 177, /* ftlink */ - 177, /* fttty */ - 177, /* fttext */ - 177, /* ftbinary */ - 79, /* chdir */ - 79, /* chown */ - 72, /* chroot */ - 79, /* unlink */ - 79, /* chmod */ - 79, /* utime */ - 79, /* rename */ - 79, /* link */ - 79, /* symlink */ + 167, /* ftrread */ + 167, /* ftrwrite */ + 167, /* ftrexec */ + 167, /* fteread */ + 167, /* ftewrite */ + 167, /* fteexec */ + 172, /* ftis */ + 172, /* ftsize */ + 172, /* ftmtime */ + 172, /* ftatime */ + 172, /* ftctime */ + 172, /* ftrowned */ + 172, /* fteowned */ + 172, /* ftzero */ + 172, /* ftsock */ + 172, /* ftchr */ + 172, /* ftblk */ + 172, /* ftfile */ + 172, /* ftdir */ + 172, /* ftpipe */ + 172, /* ftsuid */ + 172, /* ftsgid */ + 172, /* ftsvtx */ + 172, /* ftlink */ + 172, /* fttty */ + 172, /* fttext */ + 172, /* ftbinary */ + 77, /* chdir */ + 77, /* chown */ + 71, /* chroot */ + 77, /* unlink */ + 77, /* chmod */ + 77, /* utime */ + 77, /* rename */ + 77, /* link */ + 77, /* symlink */ 0, /* readlink */ - 79, /* mkdir */ - 72, /* rmdir */ + 77, /* mkdir */ + 71, /* rmdir */ 48, /* open_dir */ 0, /* readdir */ 0, /* telldir */ @@ -2689,22 +2756,22 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* rewinddir */ 0, /* closedir */ -1, /* fork */ - 181, /* wait */ - 79, /* waitpid */ - 79, /* system */ - 79, /* exec */ - 79, /* kill */ - 181, /* getppid */ - 79, /* getpgrp */ - 79, /* setpgrp */ - 79, /* getpriority */ - 79, /* setpriority */ - 181, /* time */ + 176, /* wait */ + 77, /* waitpid */ + 77, /* system */ + 77, /* exec */ + 77, /* kill */ + 176, /* getppid */ + 77, /* getpgrp */ + 77, /* setpgrp */ + 77, /* getpriority */ + 77, /* setpriority */ + 176, /* time */ -1, /* tms */ 0, /* localtime */ 48, /* gmtime */ 0, /* alarm */ - 79, /* sleep */ + 77, /* sleep */ 48, /* shmget */ 48, /* shmctl */ 48, /* shmread */ @@ -2719,8 +2786,8 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* require */ 0, /* dofile */ -1, /* hintseval */ - 182, /* entereval */ - 151, /* leaveeval */ + 177, /* entereval */ + 144, /* leaveeval */ 0, /* entertry */ -1, /* leavetry */ 0, /* ghbyname */ @@ -2758,20 +2825,19 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* lock */ 0, /* once */ -1, /* custom */ - 0, /* reach */ - 39, /* rkeys */ - 0, /* rvalues */ - 188, /* coreargs */ + 183, /* coreargs */ + 187, /* avhvswitch */ 3, /* runcv */ 0, /* fc */ -1, /* padcv */ -1, /* introcv */ -1, /* clonecv */ - 192, /* padrange */ - 194, /* refassign */ - 200, /* lvref */ - 206, /* lvrefslice */ - 207, /* lvavref */ + 189, /* padrange */ + 191, /* refassign */ + 197, /* lvref */ + 203, /* lvrefslice */ + 204, /* lvavref */ + 0, /* anonconst */ }; @@ -2790,71 +2856,70 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { */ EXTCONST U16 PL_op_private_bitdefs[] = { - 0x0003, /* scalar, prototype, refgen, srefgen, ref, readline, regcmaybe, regcreset, regcomp, 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, akeys, avalues, each, values, pop, shift, range, and, or, dor, andassign, orassign, dorassign, 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, reach, rvalues, fc */ - 0x29dc, 0x3bd9, /* pushmark */ + 0x0003, /* scalar, prototype, refgen, srefgen, ref, readline, regcmaybe, regcreset, regcomp, 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, values, pop, shift, grepstart, grepwhile, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, method, argcheck, argdefelem, 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 */ + 0x2b5c, 0x3d59, /* pushmark */ 0x00bd, /* wantarray, runcv */ - 0x03b8, 0x1570, 0x3c8c, 0x3748, 0x2da5, /* const */ - 0x29dc, 0x2ef9, /* gvsv */ - 0x13d5, /* gv */ - 0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, slt, sgt, sle, sge, seq, sne, bit_and, bit_xor, bit_or, smartmatch, lslice, xor */ - 0x29dc, 0x3bd8, 0x0257, /* padsv */ - 0x29dc, 0x3bd8, 0x2acc, 0x38c9, /* padav */ - 0x29dc, 0x3bd8, 0x0534, 0x05d0, 0x2acc, 0x38c9, /* padhv */ - 0x3699, /* pushre, qr */ - 0x29dc, 0x1758, 0x0256, 0x2acc, 0x2cc8, 0x3c84, 0x0003, /* rv2gv */ - 0x29dc, 0x2ef8, 0x0256, 0x3c84, 0x0003, /* rv2sv */ - 0x2acc, 0x0003, /* av2arylen, pos, keys, rkeys */ - 0x2c3c, 0x0b98, 0x08f4, 0x028c, 0x3e48, 0x3c84, 0x0003, /* rv2cv */ - 0x012f, /* 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 */ - 0x30dc, 0x2ff8, 0x24b4, 0x23f0, 0x0003, /* backtick */ - 0x3698, 0x3ef1, /* match, subst */ - 0x3698, 0x0003, /* substcont */ - 0x0c9c, 0x1dd8, 0x0834, 0x3ef0, 0x3a0c, 0x2168, 0x01e4, 0x0141, /* trans, transr */ - 0x0adc, 0x0458, 0x0067, /* sassign */ - 0x0758, 0x2acc, 0x0067, /* aassign */ - 0x3ef0, 0x0003, /* chomp, schomp, sin, cos, exp, log, sqrt, int, hex, oct, abs, length, ord, chr, chroot, rmdir */ - 0x3ef0, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, i_ncmp, scmp */ - 0x1058, 0x3ef0, 0x0067, /* repeat */ - 0x3ef0, 0x012f, /* stringify, atan2, rand, srand, index, rindex, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ - 0x33f0, 0x2acc, 0x00cb, /* substr */ - 0x3ef0, 0x2acc, 0x0067, /* vec */ - 0x29dc, 0x2ef8, 0x2acc, 0x38c8, 0x3c84, 0x0003, /* rv2av */ - 0x01ff, /* aelemfast, aelemfast_lex */ - 0x29dc, 0x28d8, 0x0256, 0x2acc, 0x0067, /* aelem, helem */ - 0x29dc, 0x2acc, 0x38c9, /* aslice, hslice */ - 0x2acd, /* kvaslice, kvhslice */ - 0x29dc, 0x3818, 0x0003, /* delete */ - 0x3d78, 0x0003, /* exists */ - 0x29dc, 0x2ef8, 0x0534, 0x05d0, 0x2acc, 0x38c8, 0x3c84, 0x0003, /* rv2hv */ - 0x29dc, 0x28d8, 0x0d14, 0x1670, 0x2acc, 0x3c84, 0x0003, /* multideref */ - 0x223c, 0x2ef8, 0x3ef1, /* split */ - 0x29dc, 0x1e99, /* list */ - 0x3af8, 0x3194, 0x0fb0, 0x254c, 0x34e8, 0x2644, 0x2e61, /* sort */ - 0x254c, 0x0003, /* reverse */ - 0x1cc5, /* grepstart, mapstart */ - 0x1cc4, 0x0003, /* grepwhile, mapwhile */ - 0x2778, 0x0003, /* flip, flop */ - 0x29dc, 0x0003, /* cond_expr */ - 0x29dc, 0x0b98, 0x0256, 0x028c, 0x3e48, 0x3c84, 0x2301, /* entersub */ - 0x3258, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ - 0x00bc, 0x012f, /* caller */ - 0x2075, /* nextstate, dbstate */ - 0x287c, 0x3259, /* leave */ - 0x29dc, 0x2ef8, 0x0c0c, 0x3569, /* enteriter */ - 0x3569, /* iter */ - 0x287c, 0x0067, /* leaveloop */ - 0x405c, 0x0003, /* last, next, redo, dump, goto */ - 0x30dc, 0x2ff8, 0x24b4, 0x23f0, 0x012f, /* open */ - 0x1910, 0x1b6c, 0x1a28, 0x17e4, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ - 0x1910, 0x1b6c, 0x1a28, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ - 0x3ef1, /* wait, getppid, time */ - 0x32f4, 0x09b0, 0x068c, 0x3fc8, 0x1f84, 0x0003, /* entereval */ - 0x2b9c, 0x0018, 0x0ec4, 0x0de1, /* coreargs */ - 0x29dc, 0x019b, /* padrange */ - 0x29dc, 0x3bd8, 0x0376, 0x26cc, 0x14c8, 0x0067, /* refassign */ - 0x29dc, 0x3bd8, 0x0376, 0x26cc, 0x14c8, 0x0003, /* lvref */ - 0x29dd, /* lvrefslice */ - 0x29dc, 0x3bd8, 0x0003, /* lvavref */ + 0x03b8, 0x17f0, 0x3e0c, 0x38c8, 0x2f25, /* const */ + 0x2b5c, 0x3079, /* gvsv */ + 0x1655, /* 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 */ + 0x2b5c, 0x3d58, 0x03d7, /* padsv */ + 0x2b5c, 0x3d58, 0x2c4c, 0x3a49, /* padav */ + 0x2b5c, 0x3d58, 0x0534, 0x05d0, 0x2c4c, 0x3a49, /* padhv */ + 0x3819, /* pushre, match, qr, subst */ + 0x2b5c, 0x19d8, 0x03d6, 0x2c4c, 0x2e48, 0x3e04, 0x0003, /* rv2gv */ + 0x2b5c, 0x3078, 0x03d6, 0x3e04, 0x0003, /* rv2sv */ + 0x2c4c, 0x0003, /* av2arylen, pos, akeys, keys */ + 0x2dbc, 0x0e18, 0x0b74, 0x028c, 0x3fc8, 0x3e04, 0x0003, /* rv2cv */ + 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 */ + 0x325c, 0x3178, 0x2634, 0x2570, 0x0003, /* backtick */ + 0x3818, 0x0003, /* substcont */ + 0x0f1c, 0x1f58, 0x0754, 0x3b8c, 0x22e8, 0x01e4, 0x0141, /* trans, transr */ + 0x0d5c, 0x0458, 0x0067, /* sassign */ + 0x0a18, 0x0914, 0x0810, 0x2c4c, 0x0067, /* aassign */ + 0x4070, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, length, ord, chr, chroot, rmdir */ + 0x4070, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */ + 0x12d8, 0x0067, /* repeat */ + 0x4070, 0x018f, /* stringify, atan2, rand, srand, index, rindex, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */ + 0x3570, 0x2c4c, 0x012b, /* substr */ + 0x2c4c, 0x0067, /* vec */ + 0x2b5c, 0x3078, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2av */ + 0x025f, /* aelemfast, aelemfast_lex */ + 0x2b5c, 0x2a58, 0x03d6, 0x2c4c, 0x0067, /* aelem, helem */ + 0x2b5c, 0x2c4c, 0x3a49, /* aslice, hslice */ + 0x2c4d, /* kvaslice, kvhslice */ + 0x2b5c, 0x3998, 0x0003, /* delete */ + 0x3ef8, 0x0003, /* exists */ + 0x2b5c, 0x3078, 0x0534, 0x05d0, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2hv */ + 0x2b5c, 0x2a58, 0x0f94, 0x18f0, 0x2c4c, 0x3e04, 0x0003, /* multideref */ + 0x23bc, 0x3079, /* split */ + 0x2b5c, 0x2019, /* list */ + 0x3c78, 0x3314, 0x1230, 0x26cc, 0x3668, 0x27c4, 0x2fe1, /* sort */ + 0x26cc, 0x0003, /* reverse */ + 0x28f8, 0x0003, /* flip, flop */ + 0x2b5c, 0x0003, /* cond_expr */ + 0x2b5c, 0x0e18, 0x03d6, 0x028c, 0x3fc8, 0x3e04, 0x2481, /* entersub */ + 0x33d8, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ + 0x02aa, 0x0003, /* argelem */ + 0x00bc, 0x018f, /* caller */ + 0x21f5, /* nextstate, dbstate */ + 0x29fc, 0x33d9, /* leave */ + 0x2b5c, 0x3078, 0x0e8c, 0x36e5, /* enteriter */ + 0x36e5, /* iter */ + 0x29fc, 0x0067, /* leaveloop */ + 0x41dc, 0x0003, /* last, next, redo, dump, goto */ + 0x325c, 0x3178, 0x2634, 0x2570, 0x018f, /* open */ + 0x1b90, 0x1dec, 0x1ca8, 0x1a64, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ + 0x1b90, 0x1dec, 0x1ca8, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ + 0x4071, /* wait, getppid, time */ + 0x3474, 0x0c30, 0x068c, 0x4148, 0x2104, 0x0003, /* entereval */ + 0x2d1c, 0x0018, 0x1144, 0x1061, /* coreargs */ + 0x2c4c, 0x00c7, /* avhvswitch */ + 0x2b5c, 0x01fb, /* padrange */ + 0x2b5c, 0x3d58, 0x04f6, 0x284c, 0x1748, 0x0067, /* refassign */ + 0x2b5c, 0x3d58, 0x04f6, 0x284c, 0x1748, 0x0003, /* lvref */ + 0x2b5d, /* lvrefslice */ + 0x2b5c, 0x3d58, 0x0003, /* lvavref */ }; @@ -2894,14 +2959,14 @@ EXTCONST U8 PL_op_private_valid[] = { /* REGCMAYBE */ (OPpARG1_MASK), /* REGCRESET */ (OPpARG1_MASK), /* REGCOMP */ (OPpARG1_MASK), - /* MATCH */ (OPpTARGET_MY|OPpRUNTIME), + /* MATCH */ (OPpRUNTIME), /* QR */ (OPpRUNTIME), - /* SUBST */ (OPpTARGET_MY|OPpRUNTIME), + /* SUBST */ (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), + /* TRANS */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE), + /* TRANSR */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|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|OPpMAYBE_LVSUB|OPpASSIGN_COMMON_AGG|OPpASSIGN_COMMON_RC1|OPpASSIGN_COMMON_SCALAR), /* CHOP */ (OPpARG1_MASK), /* SCHOP */ (OPpARG1_MASK), /* CHOMP */ (OPpARG1_MASK|OPpTARGET_MY), @@ -2925,7 +2990,7 @@ 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), @@ -2947,21 +3012,29 @@ EXTCONST U8 PL_op_private_valid[] = { /* NE */ (OPpARG2_MASK), /* I_NE */ (OPpARG2_MASK), /* NCMP */ (OPpARG2_MASK), - /* I_NCMP */ (OPpARG2_MASK|OPpTARGET_MY), + /* I_NCMP */ (OPpARG2_MASK), /* SLT */ (OPpARG2_MASK), /* SGT */ (OPpARG2_MASK), /* SLE */ (OPpARG2_MASK), /* SGE */ (OPpARG2_MASK), /* SEQ */ (OPpARG2_MASK), /* SNE */ (OPpARG2_MASK), - /* SCMP */ (OPpARG2_MASK|OPpTARGET_MY), + /* SCMP */ (OPpARG2_MASK), /* 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), /* 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), @@ -2977,7 +3050,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* ABS */ (OPpARG1_MASK|OPpTARGET_MY), /* LENGTH */ (OPpARG1_MASK|OPpTARGET_MY), /* SUBSTR */ (OPpARG3_MASK|OPpMAYBE_LVSUB|OPpSUBSTR_REPL_FIRST), - /* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpTARGET_MY), + /* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB), /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY), /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY), /* SPRINTF */ (OPpARG4_MASK), @@ -2997,8 +3070,8 @@ EXTCONST U8 PL_op_private_valid[] = { /* 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), /* KEYS */ (OPpARG1_MASK|OPpMAYBE_LVSUB), @@ -3011,7 +3084,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* MULTIDEREF */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpMAYBE_LVSUB|OPpMULTIDEREF_EXISTS|OPpMULTIDEREF_DELETE|OPpLVAL_DEFER|OPpLVAL_INTRO), /* UNPACK */ (OPpARG4_MASK), /* PACK */ (OPpARG4_MASK), - /* SPLIT */ (OPpTARGET_MY|OPpOUR_INTRO|OPpSPLIT_IMPLIM), + /* SPLIT */ (OPpOUR_INTRO|OPpSPLIT_IMPLIM), /* JOIN */ (OPpARG4_MASK), /* LIST */ (OPpLIST_GUESSED|OPpLVAL_INTRO), /* LSLICE */ (OPpARG2_MASK), @@ -3024,10 +3097,10 @@ EXTCONST U8 PL_op_private_valid[] = { /* UNSHIFT */ (OPpARG4_MASK|OPpTARGET_MY), /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE), /* 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), + /* MAPSTART */ (OPpARG1_MASK), + /* MAPWHILE */ (OPpARG1_MASK), /* RANGE */ (OPpARG1_MASK), /* FLIP */ (OPpARG1_MASK|OPpFLIP_LINENUM), /* FLOP */ (OPpARG1_MASK|OPpFLIP_LINENUM), @@ -3043,6 +3116,9 @@ EXTCONST U8 PL_op_private_valid[] = { /* 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), @@ -3236,10 +3312,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 */ (3|OPpMAYBE_LVSUB), /* RUNCV */ (OPpOFFBYONE), /* FC */ (OPpARG1_MASK), /* PADCV */ (0), @@ -3250,6 +3324,7 @@ 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), };