For Perl_Slab_Alloc(), eliminate the unused parameter 'm'.

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 7e19f61..47901c1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -114,9 +114,8 @@ recursive, but it's recursive on basic blocks, not on tree nodes.
 #endif
 
 void *
-Perl_Slab_Alloc(pTHX_ int m, size_t sz)
+Perl_Slab_Alloc(pTHX_ size_t sz)
 {
-    PERL_UNUSED_ARG(m);
     /*
      * To make incrementing use count easy PL_OpSlab is an I32 *
      * To make inserting the link to slab PL_OpPtr is I32 **