ExtUtils::ParseXS: Fix INCLUDE: $cmd |

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index 4f0e1c6..de1a42d 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -18,6 +18,7 @@
 #define Perl_pp_scalar Perl_pp_null
 #define Perl_pp_padany Perl_unimplemented_op
 #define Perl_pp_regcmaybe Perl_pp_null
+#define Perl_pp_transr Perl_pp_trans
 #define Perl_pp_chomp Perl_pp_chop
 #define Perl_pp_schomp Perl_pp_schop
 #define Perl_pp_i_preinc Perl_pp_preinc
@@ -35,6 +36,7 @@
 #define Perl_pp_hex Perl_pp_oct
 #define Perl_pp_rindex Perl_pp_index
 #define Perl_pp_lcfirst Perl_pp_ucfirst
+#define Perl_pp_aelemfast_lex Perl_pp_aelemfast
 #define Perl_pp_avalues Perl_pp_akeys
 #define Perl_pp_values Perl_do_kv
 #define Perl_pp_keys Perl_do_kv
@@ -138,7 +140,6 @@
 #define Perl_pp_custom Perl_unimplemented_op
 #define Perl_pp_reach Perl_pp_rkeys
 #define Perl_pp_rvalues Perl_pp_rkeys
-#define Perl_pp_transr Perl_pp_trans
 START_EXTERN_C
 
 #ifndef DOINIT
@@ -181,6 +182,7 @@ EXTCONST char* const PL_op_name[] = {
        "subst",
        "substcont",
        "trans",
+       "transr",
        "sassign",
        "aassign",
        "chop",
@@ -273,6 +275,7 @@ EXTCONST char* const PL_op_name[] = {
        "quotemeta",
        "rv2av",
        "aelemfast",
+       "aelemfast_lex",
        "aelem",
        "aslice",
        "aeach",
@@ -514,7 +517,7 @@ EXTCONST char* const PL_op_name[] = {
        "reach",
        "rkeys",
        "rvalues",
-       "transr",
+       "coreargs",
 };
 #endif
 
@@ -558,6 +561,7 @@ EXTCONST char* const PL_op_desc[] = {
        "substitution (s///)",
        "substitution iterator",
        "transliteration (tr///)",
+       "transliteration (tr///)",
        "scalar assignment",
        "list assignment",
        "chop",
@@ -650,6 +654,7 @@ EXTCONST char* const PL_op_desc[] = {
        "quotemeta",
        "array dereference",
        "constant array element",
+       "constant lexical array element",
        "array element",
        "array slice",
        "each on array",
@@ -891,7 +896,7 @@ EXTCONST char* const PL_op_desc[] = {
        "each on reference",
        "keys on reference",
        "values on reference",
-       "transliteration (tr///)",
+       "CORE:: subroutine",
 };
 #endif
 
@@ -949,6 +954,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_subst,
        Perl_pp_substcont,
        Perl_pp_trans,
+       Perl_pp_transr, /* implemented by Perl_pp_trans */
        Perl_pp_sassign,
        Perl_pp_aassign,
        Perl_pp_chop,
@@ -1041,6 +1047,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_quotemeta,
        Perl_pp_rv2av,
        Perl_pp_aelemfast,
+       Perl_pp_aelemfast_lex,  /* implemented by Perl_pp_aelemfast */
        Perl_pp_aelem,
        Perl_pp_aslice,
        Perl_pp_aeach,
@@ -1282,7 +1289,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_reach,  /* implemented by Perl_pp_rkeys */
        Perl_pp_rkeys,
        Perl_pp_rvalues,        /* implemented by Perl_pp_rkeys */
-       Perl_pp_transr, /* implemented by Perl_pp_trans */
+       Perl_pp_coreargs,
 }
 #endif
 #ifdef PERL_PPADDR_INITED
@@ -1337,6 +1344,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_match,          /* subst */
        Perl_ck_null,           /* substcont */
        Perl_ck_match,          /* trans */
+       Perl_ck_match,          /* transr */
        Perl_ck_sassign,        /* sassign */
        Perl_ck_null,           /* aassign */
        Perl_ck_spair,          /* chop */
@@ -1429,6 +1437,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_fun,            /* quotemeta */
        Perl_ck_rvconst,        /* rv2av */
        Perl_ck_null,           /* aelemfast */
+       Perl_ck_null,           /* aelemfast_lex */
        Perl_ck_null,           /* aelem */
        Perl_ck_null,           /* aslice */
        Perl_ck_each,           /* aeach */
@@ -1443,7 +1452,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_null,           /* helem */
        Perl_ck_null,           /* hslice */
        Perl_ck_fun,            /* boolkeys */
-       Perl_ck_unpack,         /* unpack */
+       Perl_ck_fun,            /* unpack */
        Perl_ck_fun,            /* pack */
        Perl_ck_split,          /* split */
        Perl_ck_join,           /* join */
@@ -1670,7 +1679,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_each,           /* reach */
        Perl_ck_each,           /* rkeys */
        Perl_ck_each,           /* rvalues */
-       Perl_ck_match,          /* transr */
+       Perl_ck_null,           /* coreargs */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -1719,6 +1728,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00001544,     /* subst */
        0x00000344,     /* substcont */
        0x00001804,     /* trans */
+       0x00001804,     /* transr */
        0x00000004,     /* sassign */
        0x00022208,     /* aassign */
        0x00002b0d,     /* chop */
@@ -1811,6 +1821,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00009b8e,     /* quotemeta */
        0x00000148,     /* rv2av */
        0x00013604,     /* aelemfast */
+       0x00013040,     /* aelemfast_lex */
        0x00013204,     /* aelem */
        0x00023401,     /* aslice */
        0x00003b00,     /* aeach */
@@ -1825,7 +1836,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00014204,     /* helem */
        0x00024401,     /* hslice */
        0x00004b00,     /* boolkeys */
-       0x00091400,     /* unpack */
+       0x00091480,     /* unpack */
        0x0002140d,     /* pack */
        0x00111408,     /* split */
        0x0002140d,     /* join */
@@ -1932,8 +1943,8 @@ EXTCONST U32 PL_opargs[] = {
        0x01116404,     /* ssockopt */
        0x00006b04,     /* getsockname */
        0x00006b04,     /* getpeername */
-       0x00006c80,     /* lstat */
-       0x00006c80,     /* stat */
+       0x0000ec80,     /* lstat */
+       0x0000ec80,     /* stat */
        0x00006c84,     /* ftrread */
        0x00006c84,     /* ftrwrite */
        0x00006c84,     /* ftrexec */
@@ -2052,7 +2063,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00001b00,     /* reach */
        0x00001b08,     /* rkeys */
        0x00001b08,     /* rvalues */
-       0x00001804,     /* transr */
+       0x00000600,     /* coreargs */
 };
 #endif