NewOpSz_v542 - variant without unused parameter

First parameter of NewOpSz is unused since 2007.
Perl · Dec 24, 2024 · 63ab1d4 · 63ab1d4
1 parent a914469
commit 63ab1d4
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/op.h b/op.h
@@ -708,8 +708,12 @@ least an C<UNOP>.
 #define NewOp_v542(Var, Count, Type)                                    \
     (Var = (Type *) Perl_Slab_Alloc (aTHX_ Count * sizeof (Type)))
 
-#define NewOpSz(m,var,size)	\
-        (var = (OP *) Perl_Slab_Alloc(aTHX_ size))
+#define NewOpSz(m,var,size)                                             \
+    NewOpSz_v542 (0, var, size)
+
+#define NewOpSz_v542(Var, Size)                                         \
+    (Var = (OP *) Perl_Slab_Alloc (aTHX_ Size))
+
 #define FreeOp(p) Perl_Slab_Free(aTHX_ p)
 
 /*