regcomp.sym: Add EXACTFU regnode

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index 9bdae57..122c67f 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -9,8 +9,8 @@
  *    License or the Artistic License, as specified in the README file.
  *
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
- *  This file is built by opcode.pl from its data.  Any changes made here
- *  will be lost!
+ *  This file is built by regen/opcode.pl from its data.  Any changes made
+ *  here will be lost!
  */
 
 #ifndef PERL_GLOBAL_STRUCT_INIT
@@ -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
@@ -399,6 +394,10 @@ EXTCONST char* const PL_op_name[] = {
        "lock",
        "once",
        "custom",
+       "reach",
+       "rkeys",
+       "rvalues",
+       "transr",
 };
 #endif
 
@@ -772,6 +771,10 @@ EXTCONST char* const PL_op_desc[] = {
        "lock",
        "once",
        "unknown custom operator",
+       "each on reference",
+       "keys on reference",
+       "values on reference",
+       "transliteration (tr///)",
 };
 #endif
 
@@ -828,7 +831,7 @@ 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,
@@ -1159,6 +1162,10 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_lock,
        Perl_pp_once,
        Perl_unimplemented_op,  /* Perl_pp_custom */
+       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
@@ -1327,11 +1334,11 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_null,           /* lslice */
        Perl_ck_fun,            /* anonlist */
        Perl_ck_fun,            /* anonhash */
-       Perl_ck_fun,            /* splice */
-       Perl_ck_fun,            /* push */
+       Perl_ck_push,           /* splice */
+       Perl_ck_push,           /* push */
        Perl_ck_shift,          /* pop */
        Perl_ck_shift,          /* shift */
-       Perl_ck_fun,            /* unshift */
+       Perl_ck_push,           /* unshift */
        Perl_ck_sort,           /* sort */
        Perl_ck_fun,            /* reverse */
        Perl_ck_grep,           /* grepstart */
@@ -1543,6 +1550,10 @@ 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_match,          /* transr */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -1921,6 +1932,10 @@ EXTCONST U32 PL_opargs[] = {
        0x00007b04,     /* lock */
        0x00000300,     /* once */
        0x00000000,     /* custom */
+       0x00001b00,     /* reach */
+       0x00001b08,     /* rkeys */
+       0x00001b08,     /* rvalues */
+       0x00001804,     /* transr */
 };
 #endif