Add MAXARG3 for neater checking of small argument counts

Variants are named to match the style of macros in op.h
Perl · Dec 5, 2024 · 34acaee · 34acaee
1 parent 342b57d
commit 34acaee
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/peep.c b/peep.c
@@ -27,7 +27,7 @@
 
 
 #define CALL_RPEEP(o) PL_rpeepp(aTHX_ o)
-
+#define cMAXARG3x(o)  (o->op_private & OPpARG3_MASK)
 
 static void
 S_scalar_slice_warning(pTHX_ const OP *o)

diff --git a/pp.h b/pp.h
@@ -633,6 +633,8 @@ Does not use C<TARG>.  See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
 #define ARGTARG		PL_op->op_targ
 
 #define MAXARG		(PL_op->op_private & OPpARG4_MASK)
+#define MAXARG3         (PL_op->op_private & OPpARG3_MASK)
+
 
 /* for backcompat - use switch_argstack() instead */