X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7e8d786b02d3ef1f946a5ac354c2780774902e15..fefcc043b6a92984b721aeb113c9251b5d87f34d:/opcode.h diff --git a/opcode.h b/opcode.h index 77e61e7..55b44de 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 @@ -140,6 +140,9 @@ #define Perl_pp_sgrent Perl_pp_ehostent #define Perl_pp_egrent Perl_pp_ehostent #define Perl_pp_custom Perl_unimplemented_op + +#endif /* End of if defined(PERL_CORE) || defined(PERL_EXT) */ + START_EXTERN_C #ifndef DOINIT @@ -156,6 +159,7 @@ EXTCONST char* const PL_op_name[] = { "gv", "gelem", "padsv", + "padsv_store", "padav", "padhv", "padany", @@ -213,6 +217,7 @@ EXTCONST char* const PL_op_name[] = { "subtract", "i_subtract", "concat", + "multiconcat", "stringify", "left_shift", "right_shift", @@ -283,6 +288,7 @@ EXTCONST char* const PL_op_name[] = { "rv2av", "aelemfast", "aelemfast_lex", + "aelemfastlex_store", "aelem", "aslice", "kvaslice", @@ -307,6 +313,7 @@ EXTCONST char* const PL_op_name[] = { "lslice", "anonlist", "anonhash", + "emptyavhv", "splice", "push", "pop", @@ -542,7 +549,25 @@ EXTCONST char* const PL_op_name[] = { "lvrefslice", "lvavref", "anonconst", - "freed", + "isa", + "cmpchain_and", + "cmpchain_dup", + "entertrycatch", + "leavetrycatch", + "poptry", + "catch", + "pushdefer", + "is_bool", + "is_weak", + "weaken", + "unweaken", + "blessed", + "refaddr", + "reftype", + "ceil", + "floor", + "is_tainted", + "freed", }; #endif @@ -560,6 +585,7 @@ EXTCONST char* const PL_op_desc[] = { "glob value", "glob elem", "private variable", + "padsv scalar assignment", "private array", "private hash", "private value", @@ -617,6 +643,7 @@ EXTCONST char* const PL_op_desc[] = { "subtraction (-)", "integer subtraction (-)", "concatenation (.) or string", + "concatenation (.) or string", "string", "left bitshift (<<)", "right bitshift (>>)", @@ -687,6 +714,7 @@ EXTCONST char* const PL_op_desc[] = { "array dereference", "constant array element", "constant lexical array element", + "const lexical array element store", "array element", "array slice", "index/value array slice", @@ -711,6 +739,7 @@ EXTCONST char* const PL_op_desc[] = { "list slice", "anonymous array ([])", "anonymous hash ({})", + "empty anon hash/array", "splice", "push", "pop", @@ -946,27 +975,34 @@ EXTCONST char* const PL_op_desc[] = { "lvalue ref assignment", "lvalue array reference", "anonymous constant", - "freed op", + "derived class test", + "comparison chaining", + "comparand shuffling", + "try {block}", + "try {block} exit", + "pop try", + "catch {} block", + "push defer {} block", + "boolean type test", + "weakref type test", + "reference weaken", + "reference unweaken", + "blessed", + "refaddr", + "reftype", + "ceil", + "floor", + "is_tainted", + "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, @@ -978,6 +1014,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_gv, Perl_pp_gelem, Perl_pp_padsv, + Perl_pp_padsv_store, Perl_pp_padav, Perl_pp_padhv, Perl_pp_padany, /* implemented by Perl_unimplemented_op */ @@ -1035,6 +1072,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, @@ -1105,6 +1143,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_rv2av, Perl_pp_aelemfast, Perl_pp_aelemfast_lex, /* implemented by Perl_pp_aelemfast */ + Perl_pp_aelemfastlex_store, Perl_pp_aelem, Perl_pp_aslice, Perl_pp_kvaslice, @@ -1129,6 +1168,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_lslice, Perl_pp_anonlist, Perl_pp_anonhash, + Perl_pp_emptyavhv, Perl_pp_splice, Perl_pp_push, Perl_pp_pop, /* implemented by Perl_pp_shift */ @@ -1364,23 +1404,30 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_lvrefslice, Perl_pp_lvavref, Perl_pp_anonconst, + Perl_pp_isa, + Perl_pp_cmpchain_and, + Perl_pp_cmpchain_dup, + Perl_pp_entertrycatch, + Perl_pp_leavetrycatch, + Perl_pp_poptry, + Perl_pp_catch, + Perl_pp_pushdefer, + Perl_pp_is_bool, + Perl_pp_is_weak, + Perl_pp_weaken, + Perl_pp_unweaken, + Perl_pp_blessed, + Perl_pp_refaddr, + Perl_pp_reftype, + Perl_pp_ceil, + Perl_pp_floor, + Perl_pp_is_tainted, } #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 */ @@ -1392,6 +1439,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* gv */ Perl_ck_null, /* gelem */ Perl_ck_null, /* padsv */ + Perl_ck_sassign, /* padsv_store */ Perl_ck_null, /* padav */ Perl_ck_null, /* padhv */ Perl_ck_null, /* padany */ @@ -1449,6 +1497,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 */ @@ -1460,10 +1509,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_eq, /* eq */ - Perl_ck_eq, /* i_eq */ - Perl_ck_eq, /* ne */ - Perl_ck_eq, /* 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 */ @@ -1487,7 +1536,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* not */ Perl_ck_bitop, /* complement */ Perl_ck_bitop, /* ncomplement */ - Perl_ck_bitop, /* scomplement */ + Perl_ck_null, /* scomplement */ Perl_ck_smartmatch, /* smartmatch */ Perl_ck_fun, /* atan2 */ Perl_ck_fun, /* sin */ @@ -1519,6 +1568,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_rvconst, /* rv2av */ Perl_ck_null, /* aelemfast */ Perl_ck_null, /* aelemfast_lex */ + Perl_ck_null, /* aelemfastlex_store */ Perl_ck_null, /* aelem */ Perl_ck_null, /* aslice */ Perl_ck_null, /* kvaslice */ @@ -1543,6 +1593,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* lslice */ Perl_ck_fun, /* anonlist */ Perl_ck_fun, /* anonhash */ + Perl_ck_fun, /* emptyavhv */ Perl_ck_fun, /* splice */ Perl_ck_fun, /* push */ Perl_ck_shift, /* pop */ @@ -1778,13 +1829,27 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ 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 */ + Perl_ck_trycatch, /* entertrycatch */ + Perl_ck_null, /* leavetrycatch */ + Perl_ck_null, /* poptry */ + Perl_ck_null, /* catch */ + Perl_ck_null, /* pushdefer */ + Perl_ck_null, /* is_bool */ + Perl_ck_null, /* is_weak */ + Perl_ck_null, /* weaken */ + Perl_ck_null, /* unweaken */ + Perl_ck_null, /* blessed */ + Perl_ck_null, /* refaddr */ + Perl_ck_null, /* reftype */ + Perl_ck_null, /* ceil */ + Perl_ck_null, /* floor */ + Perl_ck_null, /* is_tainted */ } #endif -#ifdef PERL_CHECK_INITED ; -#endif /* #ifdef PERL_CHECK_INITED */ - -#ifndef PERL_GLOBAL_STRUCT_INIT #ifndef DOINIT EXTCONST U32 PL_opargs[]; @@ -1800,6 +1865,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000644, /* gv */ 0x00011244, /* gelem */ 0x00000044, /* padsv */ + 0x00011104, /* padsv_store */ 0x00000040, /* padav */ 0x00000040, /* padhv */ 0x00000040, /* padany */ @@ -1857,6 +1923,7 @@ EXTCONST U32 PL_opargs[] = { 0x0001123e, /* subtract */ 0x0001121e, /* i_subtract */ 0x0001121e, /* concat */ + 0x00000f1c, /* multiconcat */ 0x0000141e, /* stringify */ 0x0001121e, /* left_shift */ 0x0001121e, /* right_shift */ @@ -1927,6 +1994,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000148, /* rv2av */ 0x00013644, /* aelemfast */ 0x00013040, /* aelemfast_lex */ + 0x00013140, /* aelemfastlex_store */ 0x00013204, /* aelem */ 0x00023401, /* aslice */ 0x00023401, /* kvaslice */ @@ -1938,7 +2006,7 @@ EXTCONST U32 PL_opargs[] = { 0x00004b08, /* keys */ 0x00001b00, /* delete */ 0x00001b04, /* exists */ - 0x00000140, /* rv2hv */ + 0x00000148, /* rv2hv */ 0x00014204, /* helem */ 0x00024401, /* hslice */ 0x00024401, /* kvhslice */ @@ -1951,6 +2019,7 @@ EXTCONST U32 PL_opargs[] = { 0x00224200, /* lslice */ 0x00002405, /* anonlist */ 0x00002405, /* anonhash */ + 0x0000241c, /* emptyavhv */ 0x02993401, /* splice */ 0x0002341d, /* push */ 0x0000bb04, /* pop */ @@ -2186,11 +2255,27 @@ EXTCONST U32 PL_opargs[] = { 0x00000440, /* lvrefslice */ 0x00000b40, /* lvavref */ 0x00000144, /* anonconst */ + 0x00000204, /* isa */ + 0x00000300, /* cmpchain_and */ + 0x00000100, /* cmpchain_dup */ + 0x00000300, /* entertrycatch */ + 0x00000400, /* leavetrycatch */ + 0x00000400, /* poptry */ + 0x00000300, /* catch */ + 0x00000300, /* pushdefer */ + 0x00000106, /* is_bool */ + 0x00000106, /* is_weak */ + 0x00000100, /* weaken */ + 0x00000100, /* unweaken */ + 0x00000106, /* blessed */ + 0x0000011e, /* refaddr */ + 0x0000011e, /* reftype */ + 0x0000011e, /* ceil */ + 0x0000011e, /* floor */ + 0x00000106, /* is_tainted */ }; #endif -#endif /* !PERL_GLOBAL_STRUCT_INIT */ - END_EXTERN_C @@ -2202,7 +2287,7 @@ END_EXTERN_C #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 @@ -2211,7 +2296,7 @@ END_EXTERN_C #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 @@ -2226,6 +2311,7 @@ END_EXTERN_C #define OPpSORT_REVERSE 0x04 #define OPpSPLIT_IMPLIM 0x04 #define OPpTRANS_IDENTICAL 0x04 +#define OPpUSEINT 0x04 #define OPpARGELEM_MASK 0x06 #define OPpARG3_MASK 0x07 #define OPpPADRANGE_COUNTSHIFT 0x07 @@ -2236,6 +2322,7 @@ 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 @@ -2257,16 +2344,18 @@ END_EXTERN_C #define OPpASSIGN_COMMON_RC1 0x20 #define OPpDEREF_HV 0x20 #define OPpEARLY_CV 0x20 +#define OPpEMPTYAVHV_IS_HV 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 OPpUNDEF_KEEP_PV 0x20 #define OPpDEREF 0x30 #define OPpDEREF_SV 0x30 #define OPpLVREF_CV 0x30 @@ -2274,6 +2363,7 @@ END_EXTERN_C #define OPpALLOW_FAKE 0x40 #define OPpASSIGN_BACKWARDS 0x40 #define OPpASSIGN_COMMON_SCALAR 0x40 +#define OPpCONCAT_NESTED 0x40 #define OPpCONST_BARE 0x40 #define OPpCOREARGS_SCALARMOD 0x40 #define OPpENTERSUB_DB 0x40 @@ -2282,17 +2372,18 @@ END_EXTERN_C #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 OPpSLICE 0x40 -#define OPpSORT_STABLE 0x40 #define OPpTRANS_GROWS 0x40 #define OPpPADRANGE_COUNTMASK 0x7f #define OPpASSIGN_CV_TO_GV 0x80 #define OPpCOREARGS_PUSHMARK 0x80 +#define OPpDEFER_FINALLY 0x80 #define OPpENTERSUB_NOPAREN 0x80 #define OPpLVALUE 0x80 #define OPpLVAL_INTRO 0x80 @@ -2302,9 +2393,7 @@ END_EXTERN_C #define OPpTRANS_DELETE 0x80 START_EXTERN_C -#ifndef PERL_GLOBAL_STRUCT_INIT - -# ifndef DOINIT +#ifndef DOINIT /* data about the flags in op_private */ @@ -2314,7 +2403,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. @@ -2326,9 +2415,9 @@ 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','N','O','N','H','A','S','H','\0', + 'A','P','P','E','N','D','\0', 'A','S','S','I','G','N','\0', 'A','V','\0', 'B','A','R','E','\0', @@ -2336,6 +2425,7 @@ EXTCONST char PL_op_private_labels[] = { 'B','O','O','L','\0', 'B','O','O','L','?','\0', 'B','Y','T','E','S','\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', @@ -2360,6 +2450,7 @@ EXTCONST char PL_op_private_labels[] = { 'E','N','T','E','R','E','D','\0', 'E','X','I','S','T','S','\0', 'F','A','K','E','\0', + 'F','I','N','A','L','L','Y','\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', @@ -2377,6 +2468,7 @@ 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','E','P','_','P','V','\0', 'K','E','Y','S','\0', 'K','V','S','L','I','C','E','\0', 'L','E','X','\0', @@ -2387,6 +2479,7 @@ EXTCONST char PL_op_private_labels[] = { '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', @@ -2394,7 +2487,6 @@ 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', @@ -2404,14 +2496,16 @@ EXTCONST char PL_op_private_labels[] = { 'S','L','I','C','E','\0', 'S','L','I','C','E','W','A','R','N','\0', 'S','Q','U','A','S','H','\0', - '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','S','E','I','N','T','\0', + 'U','S','E','_','S','V','O','P','\0', 'U','T','F','\0', 'k','e','y','\0', 'o','f','f','s','e','t','\0', @@ -2434,14 +2528,14 @@ EXTCONST char PL_op_private_labels[] = { EXTCONST I16 PL_op_private_bitfields[] = { 0, 8, -1, 0, 8, -1, - 0, 556, -1, + 0, 613, -1, 0, 8, -1, 0, 8, -1, - 0, 563, -1, - 0, 552, -1, - 1, -1, 0, 529, 1, 33, 2, 283, -1, - 4, -1, 1, 164, 2, 171, 3, 178, -1, - 4, -1, 0, 529, 1, 33, 2, 283, 3, 110, -1, + 0, 620, -1, + 0, 609, -1, + 1, -1, 0, 570, 1, 39, 2, 312, -1, + 4, -1, 1, 185, 2, 192, 3, 199, -1, + 4, -1, 0, 570, 1, 39, 2, 312, 3, 131, -1, }; @@ -2460,21 +2554,22 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 11, /* gv */ 12, /* gelem */ 13, /* padsv */ - 16, /* padav */ - 21, /* padhv */ + 16, /* padsv_store */ + 19, /* padav */ + 24, /* padhv */ -1, /* padany */ - 28, /* rv2gv */ - 35, /* rv2sv */ - 40, /* av2arylen */ - 42, /* rv2cv */ + 31, /* rv2gv */ + 38, /* rv2sv */ + 43, /* av2arylen */ + 45, /* rv2cv */ -1, /* anoncode */ 0, /* prototype */ 0, /* refgen */ 0, /* srefgen */ - 49, /* ref */ - 52, /* bless */ - 53, /* backtick */ - 52, /* glob */ + 52, /* ref */ + 55, /* bless */ + 56, /* backtick */ + 55, /* glob */ 0, /* readline */ -1, /* rcatline */ 0, /* regcmaybe */ @@ -2482,20 +2577,20 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* regcomp */ -1, /* match */ -1, /* qr */ - 58, /* subst */ + 61, /* subst */ 0, /* substcont */ - 59, /* trans */ - 59, /* transr */ - 66, /* sassign */ - 69, /* aassign */ + 62, /* trans */ + 62, /* transr */ + 69, /* sassign */ + 72, /* aassign */ 0, /* chop */ 0, /* schop */ - 75, /* chomp */ - 75, /* schomp */ + 78, /* chomp */ + 78, /* schomp */ 0, /* defined */ - 0, /* undef */ + 80, /* undef */ 0, /* study */ - 77, /* pos */ + 85, /* pos */ 0, /* preinc */ 0, /* i_preinc */ 0, /* predec */ @@ -2504,22 +2599,23 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 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 */ - 80, /* concat */ - 84, /* stringify */ - 80, /* left_shift */ - 80, /* right_shift */ + 88, /* pow */ + 88, /* multiply */ + 88, /* i_multiply */ + 88, /* divide */ + 88, /* i_divide */ + 88, /* modulo */ + 88, /* i_modulo */ + 90, /* repeat */ + 88, /* add */ + 88, /* i_add */ + 88, /* subtract */ + 88, /* i_subtract */ + 92, /* concat */ + 95, /* multiconcat */ + 101, /* stringify */ + 103, /* left_shift */ + 103, /* right_shift */ 12, /* lt */ 12, /* i_lt */ 12, /* gt */ @@ -2541,126 +2637,128 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 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 */ + 105, /* bit_and */ + 105, /* bit_xor */ + 105, /* bit_or */ + 103, /* nbit_and */ + 103, /* nbit_xor */ + 103, /* nbit_or */ + 105, /* sbit_and */ + 105, /* sbit_xor */ + 105, /* sbit_or */ 0, /* negate */ 0, /* i_negate */ 0, /* not */ - 0, /* complement */ - 75, /* ncomplement */ - 75, /* scomplement */ + 105, /* complement */ + 103, /* ncomplement */ + 78, /* scomplement */ 12, /* smartmatch */ - 84, /* atan2 */ - 75, /* sin */ - 75, /* cos */ - 84, /* rand */ - 84, /* srand */ - 75, /* exp */ - 75, /* log */ - 75, /* sqrt */ - 75, /* int */ - 75, /* hex */ - 75, /* oct */ - 75, /* abs */ - 86, /* length */ - 89, /* substr */ - 92, /* vec */ - 94, /* index */ - 94, /* rindex */ - 52, /* sprintf */ - 52, /* formline */ - 75, /* ord */ - 75, /* chr */ - 84, /* crypt */ + 101, /* atan2 */ + 78, /* sin */ + 78, /* cos */ + 101, /* rand */ + 101, /* srand */ + 78, /* exp */ + 78, /* log */ + 78, /* sqrt */ + 78, /* int */ + 78, /* hex */ + 78, /* oct */ + 78, /* abs */ + 106, /* length */ + 109, /* substr */ + 112, /* vec */ + 114, /* index */ + 114, /* rindex */ + 55, /* sprintf */ + 55, /* formline */ + 78, /* ord */ + 78, /* chr */ + 101, /* crypt */ 0, /* ucfirst */ 0, /* lcfirst */ 0, /* uc */ 0, /* lc */ 0, /* quotemeta */ - 98, /* rv2av */ - 105, /* aelemfast */ - 105, /* aelemfast_lex */ - 106, /* aelem */ - 111, /* aslice */ - 114, /* kvaslice */ + 118, /* rv2av */ + 125, /* aelemfast */ + 125, /* aelemfast_lex */ + 125, /* aelemfastlex_store */ + 126, /* aelem */ + 131, /* aslice */ + 134, /* kvaslice */ 0, /* aeach */ 0, /* avalues */ - 40, /* akeys */ + 43, /* akeys */ 0, /* each */ - 40, /* values */ - 40, /* keys */ - 115, /* delete */ - 119, /* exists */ - 121, /* rv2hv */ - 106, /* helem */ - 111, /* hslice */ - 114, /* kvhslice */ - 129, /* multideref */ - 52, /* unpack */ - 52, /* pack */ - 136, /* split */ - 52, /* join */ - 141, /* list */ + 43, /* values */ + 43, /* keys */ + 135, /* delete */ + 139, /* exists */ + 141, /* rv2hv */ + 126, /* helem */ + 131, /* hslice */ + 134, /* kvhslice */ + 149, /* multideref */ + 55, /* unpack */ + 55, /* pack */ + 156, /* split */ + 55, /* join */ + 161, /* list */ 12, /* lslice */ - 52, /* anonlist */ - 52, /* anonhash */ - 52, /* splice */ - 84, /* push */ + 55, /* anonlist */ + 55, /* anonhash */ + 163, /* emptyavhv */ + 55, /* splice */ + 101, /* push */ 0, /* pop */ 0, /* shift */ - 84, /* unshift */ - 143, /* sort */ - 150, /* reverse */ + 101, /* unshift */ + 168, /* sort */ + 173, /* reverse */ 0, /* grepstart */ - 152, /* grepwhile */ + 175, /* grepwhile */ 0, /* mapstart */ 0, /* mapwhile */ 0, /* range */ - 154, /* flip */ - 154, /* flop */ + 177, /* flip */ + 177, /* flop */ 0, /* and */ 0, /* or */ 12, /* xor */ 0, /* dor */ - 156, /* cond_expr */ + 179, /* cond_expr */ 0, /* andassign */ 0, /* orassign */ 0, /* dorassign */ - 158, /* entersub */ - 165, /* leavesub */ - 165, /* leavesublv */ + 181, /* entersub */ + 188, /* leavesub */ + 188, /* leavesublv */ 0, /* argcheck */ - 167, /* argelem */ + 190, /* argelem */ 0, /* argdefelem */ - 169, /* caller */ - 52, /* warn */ - 52, /* die */ - 52, /* reset */ + 192, /* caller */ + 55, /* warn */ + 55, /* die */ + 55, /* reset */ -1, /* lineseq */ - 171, /* nextstate */ - 171, /* dbstate */ + 194, /* nextstate */ + 194, /* dbstate */ -1, /* unstack */ -1, /* enter */ - 172, /* leave */ + 195, /* leave */ -1, /* scope */ - 174, /* enteriter */ - 178, /* iter */ + 197, /* enteriter */ + 201, /* iter */ -1, /* enterloop */ - 179, /* leaveloop */ + 202, /* leaveloop */ -1, /* return */ - 181, /* last */ - 181, /* next */ - 181, /* redo */ - 181, /* dump */ - 181, /* goto */ - 52, /* exit */ + 204, /* last */ + 204, /* next */ + 204, /* redo */ + 204, /* dump */ + 204, /* goto */ + 55, /* exit */ 0, /* method */ 0, /* method_named */ 0, /* method_super */ @@ -2672,143 +2770,143 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { 0, /* leavewhen */ -1, /* break */ -1, /* continue */ - 183, /* open */ - 52, /* close */ - 52, /* pipe_op */ - 52, /* fileno */ - 52, /* umask */ - 52, /* binmode */ - 52, /* tie */ + 206, /* open */ + 55, /* close */ + 55, /* pipe_op */ + 55, /* fileno */ + 55, /* umask */ + 55, /* binmode */ + 55, /* tie */ 0, /* untie */ 0, /* tied */ - 52, /* dbmopen */ + 55, /* dbmopen */ 0, /* dbmclose */ - 52, /* sselect */ - 52, /* select */ - 52, /* getc */ - 52, /* read */ - 52, /* enterwrite */ - 165, /* leavewrite */ + 55, /* sselect */ + 55, /* select */ + 55, /* getc */ + 55, /* read */ + 55, /* enterwrite */ + 188, /* leavewrite */ -1, /* prtf */ -1, /* print */ -1, /* say */ - 52, /* sysopen */ - 52, /* sysseek */ - 52, /* sysread */ - 52, /* syswrite */ - 52, /* eof */ - 52, /* tell */ - 52, /* seek */ - 52, /* truncate */ - 52, /* fcntl */ - 52, /* ioctl */ - 84, /* flock */ - 52, /* send */ - 52, /* recv */ - 52, /* socket */ - 52, /* sockpair */ - 52, /* bind */ - 52, /* connect */ - 52, /* listen */ - 52, /* accept */ - 52, /* shutdown */ - 52, /* gsockopt */ - 52, /* ssockopt */ + 55, /* sysopen */ + 55, /* sysseek */ + 55, /* sysread */ + 55, /* syswrite */ + 55, /* eof */ + 55, /* tell */ + 55, /* seek */ + 55, /* truncate */ + 55, /* fcntl */ + 55, /* ioctl */ + 101, /* flock */ + 55, /* send */ + 55, /* recv */ + 55, /* socket */ + 55, /* sockpair */ + 55, /* bind */ + 55, /* connect */ + 55, /* listen */ + 55, /* accept */ + 55, /* shutdown */ + 55, /* gsockopt */ + 55, /* ssockopt */ 0, /* getsockname */ 0, /* getpeername */ 0, /* lstat */ 0, /* stat */ - 188, /* ftrread */ - 188, /* ftrwrite */ - 188, /* ftrexec */ - 188, /* fteread */ - 188, /* ftewrite */ - 188, /* fteexec */ - 193, /* ftis */ - 193, /* ftsize */ - 193, /* ftmtime */ - 193, /* ftatime */ - 193, /* ftctime */ - 193, /* ftrowned */ - 193, /* fteowned */ - 193, /* ftzero */ - 193, /* ftsock */ - 193, /* ftchr */ - 193, /* ftblk */ - 193, /* ftfile */ - 193, /* ftdir */ - 193, /* ftpipe */ - 193, /* ftsuid */ - 193, /* ftsgid */ - 193, /* ftsvtx */ - 193, /* ftlink */ - 193, /* fttty */ - 193, /* fttext */ - 193, /* ftbinary */ - 84, /* chdir */ - 84, /* chown */ - 75, /* chroot */ - 84, /* unlink */ - 84, /* chmod */ - 84, /* utime */ - 84, /* rename */ - 84, /* link */ - 84, /* symlink */ + 211, /* ftrread */ + 211, /* ftrwrite */ + 211, /* ftrexec */ + 211, /* fteread */ + 211, /* ftewrite */ + 211, /* fteexec */ + 216, /* ftis */ + 216, /* ftsize */ + 216, /* ftmtime */ + 216, /* ftatime */ + 216, /* ftctime */ + 216, /* ftrowned */ + 216, /* fteowned */ + 216, /* ftzero */ + 216, /* ftsock */ + 216, /* ftchr */ + 216, /* ftblk */ + 216, /* ftfile */ + 216, /* ftdir */ + 216, /* ftpipe */ + 216, /* ftsuid */ + 216, /* ftsgid */ + 216, /* ftsvtx */ + 216, /* ftlink */ + 216, /* fttty */ + 216, /* fttext */ + 216, /* ftbinary */ + 101, /* chdir */ + 101, /* chown */ + 78, /* chroot */ + 101, /* unlink */ + 101, /* chmod */ + 101, /* utime */ + 101, /* rename */ + 101, /* link */ + 101, /* symlink */ 0, /* readlink */ - 84, /* mkdir */ - 75, /* rmdir */ - 52, /* open_dir */ + 101, /* mkdir */ + 78, /* rmdir */ + 55, /* open_dir */ 0, /* readdir */ 0, /* telldir */ - 52, /* seekdir */ + 55, /* seekdir */ 0, /* rewinddir */ 0, /* closedir */ -1, /* fork */ - 197, /* wait */ - 84, /* waitpid */ - 84, /* system */ - 84, /* exec */ - 84, /* kill */ - 197, /* getppid */ - 84, /* getpgrp */ - 84, /* setpgrp */ - 84, /* getpriority */ - 84, /* setpriority */ - 197, /* time */ + 220, /* wait */ + 101, /* waitpid */ + 101, /* system */ + 101, /* exec */ + 101, /* kill */ + 220, /* getppid */ + 101, /* getpgrp */ + 101, /* setpgrp */ + 101, /* getpriority */ + 101, /* setpriority */ + 220, /* time */ -1, /* tms */ 0, /* localtime */ - 52, /* gmtime */ + 55, /* gmtime */ 0, /* alarm */ - 84, /* sleep */ - 52, /* shmget */ - 52, /* shmctl */ - 52, /* shmread */ - 52, /* shmwrite */ - 52, /* msgget */ - 52, /* msgctl */ - 52, /* msgsnd */ - 52, /* msgrcv */ - 52, /* semop */ - 52, /* semget */ - 52, /* semctl */ + 101, /* sleep */ + 55, /* shmget */ + 55, /* shmctl */ + 55, /* shmread */ + 55, /* shmwrite */ + 55, /* msgget */ + 55, /* msgctl */ + 55, /* msgsnd */ + 55, /* msgrcv */ + 55, /* semop */ + 55, /* semget */ + 55, /* semctl */ 0, /* require */ 0, /* dofile */ -1, /* hintseval */ - 198, /* entereval */ - 165, /* leaveeval */ + 221, /* entereval */ + 188, /* leaveeval */ 0, /* entertry */ -1, /* leavetry */ 0, /* ghbyname */ - 52, /* ghbyaddr */ + 55, /* ghbyaddr */ -1, /* ghostent */ 0, /* gnbyname */ - 52, /* gnbyaddr */ + 55, /* gnbyaddr */ -1, /* gnetent */ 0, /* gpbyname */ - 52, /* gpbynumber */ + 55, /* gpbynumber */ -1, /* gprotoent */ - 52, /* gsbyname */ - 52, /* gsbyport */ + 55, /* gsbyname */ + 55, /* gsbyport */ -1, /* gservent */ 0, /* shostent */ 0, /* snetent */ @@ -2829,23 +2927,41 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { -1, /* sgrent */ -1, /* egrent */ -1, /* getlogin */ - 52, /* syscall */ + 55, /* syscall */ 0, /* lock */ 0, /* once */ -1, /* custom */ - 204, /* coreargs */ - 208, /* avhvswitch */ + 227, /* coreargs */ + 231, /* avhvswitch */ 3, /* runcv */ 0, /* fc */ -1, /* padcv */ -1, /* introcv */ -1, /* clonecv */ - 210, /* padrange */ - 212, /* refassign */ - 218, /* lvref */ - 224, /* lvrefslice */ - 225, /* lvavref */ + 233, /* padrange */ + 235, /* refassign */ + 241, /* lvref */ + 247, /* lvrefslice */ + 16, /* lvavref */ 0, /* anonconst */ + 12, /* isa */ + 0, /* cmpchain_and */ + 0, /* cmpchain_dup */ + 0, /* entertrycatch */ + -1, /* leavetrycatch */ + -1, /* poptry */ + 0, /* catch */ + 248, /* pushdefer */ + 0, /* is_bool */ + 0, /* is_weak */ + 0, /* weaken */ + 0, /* unweaken */ + 52, /* blessed */ + 78, /* refaddr */ + 78, /* reftype */ + 78, /* ceil */ + 78, /* floor */ + 0, /* is_tainted */ }; @@ -2864,74 +2980,81 @@ EXTCONST I16 PL_op_private_bitdef_ix[] = { */ EXTCONST U16 PL_op_private_bitdefs[] = { - 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 */ - 0x2e5c, 0x4019, /* pushmark */ + 0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, 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, entertrycatch, catch, is_bool, is_weak, weaken, unweaken, is_tainted */ + 0x32fc, 0x43f9, /* pushmark */ 0x00bd, /* wantarray, runcv */ - 0x0498, 0x18d0, 0x40cc, 0x3b88, 0x32a5, /* const */ - 0x2e5c, 0x33f9, /* gvsv */ - 0x1735, /* 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 */ - 0x2e5c, 0x4018, 0x03d7, /* padsv */ - 0x2e5c, 0x4018, 0x0614, 0x2f4c, 0x3d09, /* padav */ - 0x2e5c, 0x4018, 0x0614, 0x06b0, 0x2f4c, 0x3d08, 0x29c1, /* padhv */ - 0x2e5c, 0x1ab8, 0x03d6, 0x2f4c, 0x31c8, 0x40c4, 0x0003, /* rv2gv */ - 0x2e5c, 0x33f8, 0x03d6, 0x40c4, 0x0003, /* rv2sv */ - 0x2f4c, 0x0003, /* av2arylen, akeys, values, keys */ - 0x313c, 0x0ef8, 0x0c54, 0x028c, 0x4288, 0x40c4, 0x0003, /* rv2cv */ - 0x0614, 0x06b0, 0x0003, /* ref */ + 0x0558, 0x1b70, 0x44ac, 0x4048, 0x3825, /* const */ + 0x32fc, 0x3979, /* gvsv */ + 0x19d5, /* 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, smartmatch, lslice, xor, isa */ + 0x32fc, 0x43f8, 0x03d7, /* padsv */ + 0x32fc, 0x43f8, 0x0003, /* padsv_store, lvavref */ + 0x32fc, 0x43f8, 0x06d4, 0x33ec, 0x41c9, /* padav */ + 0x32fc, 0x43f8, 0x06d4, 0x0770, 0x33ec, 0x41c8, 0x2e61, /* padhv */ + 0x32fc, 0x1d58, 0x03d6, 0x33ec, 0x3748, 0x44a4, 0x0003, /* rv2gv */ + 0x32fc, 0x3978, 0x03d6, 0x44a4, 0x0003, /* rv2sv */ + 0x33ec, 0x0003, /* av2arylen, akeys, values, keys */ + 0x36bc, 0x1198, 0x0ef4, 0x014c, 0x47a8, 0x44a4, 0x0003, /* rv2cv */ + 0x06d4, 0x0770, 0x0003, /* ref, blessed */ 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 */ - 0x35dc, 0x34f8, 0x2714, 0x2650, 0x0003, /* backtick */ - 0x0615, /* subst */ - 0x0ffc, 0x2038, 0x0834, 0x3e4c, 0x23c8, 0x01e4, 0x0141, /* trans, transr */ - 0x0e3c, 0x0538, 0x0067, /* sassign */ - 0x0af8, 0x09f4, 0x08f0, 0x2f4c, 0x0608, 0x0067, /* aassign */ - 0x4330, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir */ - 0x0614, 0x2f4c, 0x0003, /* pos */ - 0x4330, 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 */ - 0x13b8, 0x0067, /* repeat */ - 0x4330, 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 */ - 0x0614, 0x4330, 0x0003, /* length */ - 0x38f0, 0x2f4c, 0x012b, /* substr */ - 0x2f4c, 0x0067, /* vec */ - 0x30b8, 0x0614, 0x4330, 0x018f, /* index, rindex */ - 0x2e5c, 0x33f8, 0x0614, 0x2f4c, 0x3d08, 0x40c4, 0x0003, /* rv2av */ - 0x025f, /* aelemfast, aelemfast_lex */ - 0x2e5c, 0x2d58, 0x03d6, 0x2f4c, 0x0067, /* aelem, helem */ - 0x2e5c, 0x2f4c, 0x3d09, /* aslice, hslice */ - 0x2f4d, /* kvaslice, kvhslice */ - 0x2e5c, 0x3c58, 0x2a74, 0x0003, /* delete */ - 0x41b8, 0x0003, /* exists */ - 0x2e5c, 0x33f8, 0x0614, 0x06b0, 0x2f4c, 0x3d08, 0x40c4, 0x29c1, /* rv2hv */ - 0x2e5c, 0x2d58, 0x1074, 0x19d0, 0x2f4c, 0x40c4, 0x0003, /* multideref */ - 0x2e5c, 0x33f8, 0x0350, 0x2b6c, 0x2489, /* split */ - 0x2e5c, 0x20f9, /* list */ - 0x3f38, 0x3694, 0x1310, 0x27ac, 0x39e8, 0x28a4, 0x3361, /* sort */ - 0x27ac, 0x0003, /* reverse */ - 0x0614, 0x0003, /* grepwhile */ - 0x2bf8, 0x0003, /* flip, flop */ - 0x2e5c, 0x0003, /* cond_expr */ - 0x2e5c, 0x0ef8, 0x03d6, 0x028c, 0x4288, 0x40c4, 0x2561, /* entersub */ - 0x3758, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ + 0x3b5c, 0x3a78, 0x2ab4, 0x29f0, 0x0003, /* backtick */ + 0x06d5, /* subst */ + 0x129c, 0x23d8, 0x0ad4, 0x430c, 0x2768, 0x4a84, 0x08e1, /* trans, transr */ + 0x10dc, 0x05f8, 0x0067, /* sassign */ + 0x0d98, 0x0c94, 0x0b90, 0x33ec, 0x06c8, 0x0067, /* aassign */ + 0x4850, 0x0003, /* chomp, schomp, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir, refaddr, reftype, ceil, floor */ + 0x32fc, 0x43f8, 0x2d74, 0x4850, 0x0003, /* undef */ + 0x06d4, 0x33ec, 0x0003, /* pos */ + 0x4850, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract */ + 0x1658, 0x0067, /* repeat */ + 0x35d8, 0x4850, 0x0067, /* concat */ + 0x32fc, 0x0338, 0x1d54, 0x4850, 0x458c, 0x0003, /* multiconcat */ + 0x4850, 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 */ + 0x4850, 0x49a9, /* left_shift, right_shift, nbit_and, nbit_xor, nbit_or, ncomplement */ + 0x49a9, /* bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, complement */ + 0x06d4, 0x4850, 0x0003, /* length */ + 0x3db0, 0x33ec, 0x012b, /* substr */ + 0x33ec, 0x0067, /* vec */ + 0x3558, 0x06d4, 0x4850, 0x018f, /* index, rindex */ + 0x32fc, 0x3978, 0x06d4, 0x33ec, 0x41c8, 0x44a4, 0x0003, /* rv2av */ + 0x025f, /* aelemfast, aelemfast_lex, aelemfastlex_store */ + 0x32fc, 0x31f8, 0x03d6, 0x33ec, 0x0067, /* aelem, helem */ + 0x32fc, 0x33ec, 0x41c9, /* aslice, hslice */ + 0x33ed, /* kvaslice, kvhslice */ + 0x32fc, 0x4118, 0x2f14, 0x0003, /* delete */ + 0x46d8, 0x0003, /* exists */ + 0x32fc, 0x3978, 0x06d4, 0x0770, 0x33ec, 0x41c8, 0x44a4, 0x2e61, /* rv2hv */ + 0x32fc, 0x31f8, 0x1314, 0x1c70, 0x33ec, 0x44a4, 0x0003, /* multideref */ + 0x32fc, 0x3978, 0x0410, 0x300c, 0x2829, /* split */ + 0x32fc, 0x2499, /* list */ + 0x32fc, 0x43f8, 0x0214, 0x4850, 0x018f, /* emptyavhv */ + 0x15b0, 0x2b4c, 0x3ea8, 0x2c44, 0x38e1, /* sort */ + 0x2b4c, 0x0003, /* reverse */ + 0x06d4, 0x0003, /* grepwhile */ + 0x3098, 0x0003, /* flip, flop */ + 0x32fc, 0x0003, /* cond_expr */ + 0x32fc, 0x1198, 0x03d6, 0x014c, 0x47a8, 0x44a4, 0x2901, /* entersub */ + 0x3c18, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */ 0x02aa, 0x0003, /* argelem */ 0x00bc, 0x018f, /* caller */ - 0x22d5, /* nextstate, dbstate */ - 0x2cfc, 0x3759, /* leave */ - 0x2e5c, 0x33f8, 0x0f6c, 0x3a65, /* enteriter */ - 0x3a65, /* iter */ - 0x2cfc, 0x0067, /* leaveloop */ - 0x449c, 0x0003, /* last, next, redo, dump, goto */ - 0x35dc, 0x34f8, 0x2714, 0x2650, 0x018f, /* open */ - 0x1c70, 0x1ecc, 0x1d88, 0x1b44, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ - 0x1c70, 0x1ecc, 0x1d88, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ - 0x4331, /* wait, getppid, time */ - 0x37f4, 0x0d10, 0x076c, 0x4408, 0x21e4, 0x0003, /* entereval */ - 0x301c, 0x0018, 0x1224, 0x1141, /* coreargs */ - 0x2f4c, 0x00c7, /* avhvswitch */ - 0x2e5c, 0x01fb, /* padrange */ - 0x2e5c, 0x4018, 0x04f6, 0x292c, 0x1828, 0x0067, /* refassign */ - 0x2e5c, 0x4018, 0x04f6, 0x292c, 0x1828, 0x0003, /* lvref */ - 0x2e5d, /* lvrefslice */ - 0x2e5c, 0x4018, 0x0003, /* lvavref */ + 0x2675, /* nextstate, dbstate */ + 0x319c, 0x3c19, /* leave */ + 0x32fc, 0x3978, 0x120c, 0x3f25, /* enteriter */ + 0x3f25, /* iter */ + 0x319c, 0x0067, /* leaveloop */ + 0x4bbc, 0x0003, /* last, next, redo, dump, goto */ + 0x3b5c, 0x3a78, 0x2ab4, 0x29f0, 0x018f, /* open */ + 0x2010, 0x226c, 0x2128, 0x1ee4, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */ + 0x2010, 0x226c, 0x2128, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */ + 0x4851, /* wait, getppid, time */ + 0x3cb4, 0x0fb0, 0x082c, 0x4928, 0x2584, 0x0003, /* entereval */ + 0x34bc, 0x0018, 0x14c4, 0x13e1, /* coreargs */ + 0x33ec, 0x00c7, /* avhvswitch */ + 0x32fc, 0x01fb, /* padrange */ + 0x32fc, 0x43f8, 0x04f6, 0x2ccc, 0x1ac8, 0x0067, /* refassign */ + 0x32fc, 0x43f8, 0x04f6, 0x2ccc, 0x1ac8, 0x0003, /* lvref */ + 0x32fd, /* lvrefslice */ + 0x1dfc, 0x0003, /* pushdefer */ }; @@ -2950,6 +3073,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* GV */ (OPpEARLY_CV), /* GELEM */ (OPpARG2_MASK), /* PADSV */ (OPpDEREF|OPpPAD_STATE|OPpLVAL_INTRO), + /* PADSV_STORE */ (OPpARG1_MASK|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), @@ -2974,8 +3098,8 @@ EXTCONST U8 PL_op_private_valid[] = { /* QR */ (0), /* SUBST */ (OPpTRUEBOOL), /* SUBSTCONT */ (OPpARG1_MASK), - /* 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), + /* 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|OPpASSIGN_TRUEBOOL|OPpMAYBE_LVSUB|OPpASSIGN_COMMON_AGG|OPpASSIGN_COMMON_RC1|OPpASSIGN_COMMON_SCALAR), /* CHOP */ (OPpARG1_MASK), @@ -2983,7 +3107,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* CHOMP */ (OPpARG1_MASK|OPpTARGET_MY), /* SCHOMP */ (OPpARG1_MASK|OPpTARGET_MY), /* DEFINED */ (OPpARG1_MASK), - /* UNDEF */ (OPpARG1_MASK), + /* UNDEF */ (OPpARG1_MASK|OPpTARGET_MY|OPpUNDEF_KEEP_PV|OPpPAD_STATE|OPpLVAL_INTRO), /* STUDY */ (OPpARG1_MASK), /* POS */ (OPpARG1_MASK|OPpMAYBE_LVSUB|OPpTRUEBOOL), /* PREINC */ (OPpARG1_MASK), @@ -3006,10 +3130,11 @@ EXTCONST U8 PL_op_private_valid[] = { /* 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), + /* LEFT_SHIFT */ (OPpUSEINT|OPpTARGET_MY), + /* RIGHT_SHIFT */ (OPpUSEINT|OPpTARGET_MY), /* LT */ (OPpARG2_MASK), /* I_LT */ (OPpARG2_MASK), /* GT */ (OPpARG2_MASK), @@ -3031,20 +3156,20 @@ EXTCONST U8 PL_op_private_valid[] = { /* SEQ */ (OPpARG2_MASK), /* SNE */ (OPpARG2_MASK), /* 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), + /* BIT_AND */ (OPpUSEINT), + /* BIT_XOR */ (OPpUSEINT), + /* BIT_OR */ (OPpUSEINT), + /* NBIT_AND */ (OPpUSEINT|OPpTARGET_MY), + /* NBIT_XOR */ (OPpUSEINT|OPpTARGET_MY), + /* NBIT_OR */ (OPpUSEINT|OPpTARGET_MY), + /* SBIT_AND */ (OPpUSEINT), + /* SBIT_XOR */ (OPpUSEINT), + /* SBIT_OR */ (OPpUSEINT), /* NEGATE */ (OPpARG1_MASK), /* I_NEGATE */ (OPpARG1_MASK), /* NOT */ (OPpARG1_MASK), - /* COMPLEMENT */ (OPpARG1_MASK), - /* NCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), + /* COMPLEMENT */ (OPpUSEINT), + /* NCOMPLEMENT */ (OPpUSEINT|OPpTARGET_MY), /* SCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY), /* SMARTMATCH */ (OPpARG2_MASK), /* ATAN2 */ (OPpARG4_MASK|OPpTARGET_MY), @@ -3077,6 +3202,7 @@ EXTCONST U8 PL_op_private_valid[] = { /* RV2AV */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO), /* AELEMFAST */ (255), /* AELEMFAST_LEX */ (255), + /* AELEMFASTLEX_STORE */ (255), /* AELEM */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO), /* ASLICE */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO), /* KVASLICE */ (OPpMAYBE_LVSUB), @@ -3101,12 +3227,13 @@ EXTCONST U8 PL_op_private_valid[] = { /* LSLICE */ (OPpARG2_MASK), /* ANONLIST */ (OPpARG4_MASK), /* ANONHASH */ (OPpARG4_MASK), + /* EMPTYAVHV */ (OPpARG4_MASK|OPpTARGET_MY|OPpEMPTYAVHV_IS_HV|OPpPAD_STATE|OPpLVAL_INTRO), /* SPLICE */ (OPpARG4_MASK), /* PUSH */ (OPpARG4_MASK|OPpTARGET_MY), /* 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), /* REVERSE */ (OPpARG1_MASK|OPpREVERSE_INPLACE), /* GREPSTART */ (OPpARG1_MASK), /* GREPWHILE */ (OPpARG1_MASK|OPpTRUEBOOL), @@ -3336,11 +3463,28 @@ EXTCONST U8 PL_op_private_valid[] = { /* LVREFSLICE */ (OPpLVAL_INTRO), /* LVAVREF */ (OPpARG1_MASK|OPpPAD_STATE|OPpLVAL_INTRO), /* ANONCONST */ (OPpARG1_MASK), + /* ISA */ (OPpARG2_MASK), + /* CMPCHAIN_AND */ (OPpARG1_MASK), + /* CMPCHAIN_DUP */ (OPpARG1_MASK), + /* ENTERTRYCATCH */ (OPpARG1_MASK), + /* LEAVETRYCATCH */ (0), + /* POPTRY */ (0), + /* CATCH */ (OPpARG1_MASK), + /* PUSHDEFER */ (OPpARG1_MASK|OPpDEFER_FINALLY), + /* IS_BOOL */ (OPpARG1_MASK), + /* IS_WEAK */ (OPpARG1_MASK), + /* WEAKEN */ (OPpARG1_MASK), + /* UNWEAKEN */ (OPpARG1_MASK), + /* BLESSED */ (OPpARG1_MASK|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL), + /* REFADDR */ (OPpARG1_MASK|OPpTARGET_MY), + /* REFTYPE */ (OPpARG1_MASK|OPpTARGET_MY), + /* CEIL */ (OPpARG1_MASK|OPpTARGET_MY), + /* FLOOR */ (OPpARG1_MASK|OPpTARGET_MY), + /* IS_TAINTED */ (OPpARG1_MASK), }; -# endif /* !DOINIT */ -#endif /* !PERL_GLOBAL_STRUCT_INIT */ +#endif /* !DOINIT */ END_EXTERN_C