X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/423e8af5fd21022f9107100c8561c5f880121231..33f29a4cec504672835fd47a5b11657983d0209e:/opcode.h diff --git a/opcode.h b/opcode.h index 709e92c..540dc0b 100644 --- a/opcode.h +++ b/opcode.h @@ -291,7 +291,6 @@ EXTCONST char* const PL_op_name[] = { "rv2hv", "helem", "hslice", - "boolkeys", "unpack", "pack", "split", @@ -521,6 +520,12 @@ EXTCONST char* const PL_op_name[] = { "rvalues", "coreargs", "runcv", + "fc", + "padcv", + "introcv", + "clonecv", + "padrange", + "freed", }; #endif @@ -671,7 +676,6 @@ EXTCONST char* const PL_op_desc[] = { "hash dereference", "hash element", "hash slice", - "boolkeys", "unpack", "pack", "split", @@ -901,6 +905,12 @@ EXTCONST char* const PL_op_desc[] = { "values on reference", "CORE:: subroutine", "__SUB__", + "fc", + "private subroutine", + "private subroutine", + "private subroutine", + "list of private variables", + "freed op", }; #endif @@ -1065,7 +1075,6 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_rv2hv, /* implemented by Perl_pp_rv2av */ Perl_pp_helem, Perl_pp_hslice, - Perl_pp_boolkeys, Perl_pp_unpack, Perl_pp_pack, Perl_pp_split, @@ -1295,6 +1304,11 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_rvalues, /* implemented by Perl_pp_rkeys */ Perl_pp_coreargs, Perl_pp_runcv, + Perl_pp_fc, + Perl_pp_padcv, + Perl_pp_introcv, + Perl_pp_clonecv, + Perl_pp_padrange, } #endif #ifdef PERL_PPADDR_INITED @@ -1357,9 +1371,9 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_spair, /* chomp */ Perl_ck_null, /* schomp */ Perl_ck_defined, /* defined */ - Perl_ck_lfun, /* undef */ + Perl_ck_fun, /* undef */ Perl_ck_fun, /* study */ - Perl_ck_lfun, /* pos */ + Perl_ck_fun, /* pos */ Perl_ck_lfun, /* preinc */ Perl_ck_lfun, /* i_preinc */ Perl_ck_lfun, /* predec */ @@ -1430,7 +1444,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_fun, /* vec */ Perl_ck_index, /* index */ Perl_ck_index, /* rindex */ - Perl_ck_fun, /* sprintf */ + Perl_ck_lfun, /* sprintf */ Perl_ck_fun, /* formline */ Perl_ck_fun, /* ord */ Perl_ck_fun, /* chr */ @@ -1456,7 +1470,6 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_rvconst, /* rv2hv */ Perl_ck_null, /* helem */ Perl_ck_null, /* hslice */ - Perl_ck_fun, /* boolkeys */ Perl_ck_fun, /* unpack */ Perl_ck_fun, /* pack */ Perl_ck_split, /* split */ @@ -1593,7 +1606,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_ftst, /* fttty */ Perl_ck_ftst, /* fttext */ Perl_ck_ftst, /* ftbinary */ - Perl_ck_chdir, /* chdir */ + Perl_ck_trunc, /* chdir */ Perl_ck_fun, /* chown */ Perl_ck_fun, /* chroot */ Perl_ck_fun, /* unlink */ @@ -1686,6 +1699,11 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_each, /* rvalues */ Perl_ck_null, /* coreargs */ Perl_ck_null, /* runcv */ + Perl_ck_fun, /* fc */ + Perl_ck_null, /* padcv */ + Perl_ck_null, /* introcv */ + Perl_ck_null, /* clonecv */ + Perl_ck_null, /* padrange */ } #endif #ifdef PERL_CHECK_INITED @@ -1742,9 +1760,9 @@ EXTCONST U32 PL_opargs[] = { 0x00002b1d, /* chomp */ 0x00009b9c, /* schomp */ 0x00009b84, /* defined */ - 0x00009b04, /* undef */ + 0x0000fb04, /* undef */ 0x00009b84, /* study */ - 0x00009b8c, /* pos */ + 0x0000fb8c, /* pos */ 0x00001164, /* preinc */ 0x00001144, /* i_preinc */ 0x00001164, /* predec */ @@ -1760,7 +1778,7 @@ EXTCONST U32 PL_opargs[] = { 0x0001121e, /* i_divide */ 0x0001123e, /* modulo */ 0x0001121e, /* i_modulo */ - 0x00012209, /* repeat */ + 0x0001220b, /* repeat */ 0x0001123e, /* add */ 0x0001121e, /* i_add */ 0x0001123e, /* subtract */ @@ -1841,9 +1859,8 @@ EXTCONST U32 PL_opargs[] = { 0x00000148, /* rv2hv */ 0x00014204, /* helem */ 0x00024401, /* hslice */ - 0x00004b00, /* boolkeys */ 0x00091480, /* unpack */ - 0x0002140d, /* pack */ + 0x0002140f, /* pack */ 0x00111408, /* split */ 0x0002140d, /* join */ 0x00002401, /* list */ @@ -2071,6 +2088,11 @@ EXTCONST U32 PL_opargs[] = { 0x00001b08, /* rvalues */ 0x00000600, /* coreargs */ 0x00000004, /* runcv */ + 0x00009b8e, /* fc */ + 0x00000040, /* padcv */ + 0x00000040, /* introcv */ + 0x00000040, /* clonecv */ + 0x00000040, /* padrange */ }; #endif