PATCH: [perl #113750] re.pm clobbers $_

[perl5.git] / opnames.h

diff --git a/opnames.h b/opnames.h
index b55cda2..8b6a39a 100644 (file)
--- a/opnames.h
+++ b/opnames.h
@@ -386,14 +386,17 @@ typedef enum opcode {
        OP_RKEYS         = 369,
        OP_RVALUES       = 370,
        OP_COREARGS      = 371,
+       OP_RUNCV         = 372,
+       OP_FC            = 373,
        OP_max          
 } opcode;
 
-#define MAXO 372
+#define MAXO 374
 
-/* the OP_IS_(SOCKET|FILETEST) macros are optimized to a simple range
-    check because all the member OPs are contiguous in opcode.pl
-    <OPS> table.  opcode.pl verifies the range contiguity.  */
+/* the OP_IS_* macros are optimized to a simple range check because
+    all the member OPs are contiguous in regen/opcodes table.
+    opcode.pl verifies the range contiguity, or generates an OR-equals
+    expression */
 
 #define OP_IS_SOCKET(op)       \
        ((op) >= OP_SEND && (op) <= OP_GETPEERNAME)
@@ -407,4 +410,7 @@ typedef enum opcode {
 #define OP_IS_NUMCOMPARE(op)   \
        ((op) >= OP_LT && (op) <= OP_I_NCMP)
 
+#define OP_IS_DIRHOP(op)       \
+       ((op) >= OP_READDIR && (op) <= OP_CLOSEDIR)
+
 /* ex: set ro: */