This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/op_private: tidy up rv2cv entry
[perl5.git] / pp.h
diff --git a/pp.h b/pp.h
index a7e936c..d0691f8 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -379,8 +379,7 @@ Does not use C<TARG>.  See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
 
 #define ARGTARG                PL_op->op_targ
 
-    /* See OPpTARGET_MY: */
-#define MAXARG         (PL_op->op_private & 15)
+#define MAXARG         (PL_op->op_private & OPpARG4_MASK)
 
 #define SWITCHSTACK(f,t) \
     STMT_START {                                                       \