diag.t: Remove printf conversion modifiers from msgs

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index c7a304d..ac9886b 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -24,11 +24,6 @@ PERL_PPDEF(Perl_unimplemented_op)
 
 START_EXTERN_C
 
-#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \
-                    PL_op_name[(o)->op_type])
-#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \
-                    PL_op_desc[(o)->op_type])
-
 #ifndef DOINIT
 EXTCONST char* const PL_op_name[];
 #else
@@ -402,6 +397,7 @@ EXTCONST char* const PL_op_name[] = {
        "reach",
        "rkeys",
        "rvalues",
+       "transr",
 };
 #endif
 
@@ -778,6 +774,7 @@ EXTCONST char* const PL_op_desc[] = {
        "each on reference",
        "keys on reference",
        "values on reference",
+       "transliteration (tr///)",
 };
 #endif
 
@@ -834,13 +831,13 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_qr,
        Perl_pp_subst,
        Perl_pp_substcont,
-       Perl_pp_trans,
+       Perl_pp_trans,  /* Perl_pp_trans */
        Perl_pp_sassign,
        Perl_pp_aassign,
-       Perl_pp_chop,
-       Perl_pp_schop,
-       Perl_pp_chomp,
-       Perl_pp_schomp,
+       Perl_pp_chop,   /* Perl_pp_chop */
+       Perl_pp_schop,  /* Perl_pp_schop */
+       Perl_pp_chop,   /* Perl_pp_chomp */
+       Perl_pp_schop,  /* Perl_pp_schomp */
        Perl_pp_defined,
        Perl_pp_undef,
        Perl_pp_study,
@@ -1040,7 +1037,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_socket,
        Perl_pp_sockpair,
        Perl_pp_bind,
-       Perl_pp_connect,
+       Perl_pp_bind,   /* Perl_pp_connect */
        Perl_pp_listen,
        Perl_pp_accept,
        Perl_pp_shutdown,
@@ -1168,6 +1165,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_rkeys,  /* Perl_pp_reach */
        Perl_pp_rkeys,
        Perl_pp_rkeys,  /* Perl_pp_rvalues */
+       Perl_pp_trans,  /* Perl_pp_transr */
 }
 #endif
 #ifdef PERL_PPADDR_INITED
@@ -1555,6 +1553,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 */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -1896,7 +1895,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00000604,     /* hintseval */
        0x00001b40,     /* entereval */
        0x00001100,     /* leaveeval */
-       0x00000b40,     /* entertry */
+       0x00000340,     /* entertry */
        0x00000400,     /* leavetry */
        0x00001b00,     /* ghbyname */
        0x00011400,     /* ghbyaddr */
@@ -1936,6 +1935,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00001b00,     /* reach */
        0x00001b08,     /* rkeys */
        0x00001b08,     /* rvalues */
+       0x00001804,     /* transr */
 };
 #endif