From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 2 Apr 2007 19:53:06 +0000 (+0000)
Subject: For Perl_Slab_Alloc(), eliminate the unused parameter 'm'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e91d68d56f1589ba6c8f530bcf8cdeb3d8943dcf;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@30832
---

diff --git a/embed.fnc b/embed.fnc
index 695adfb..27fa43d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1220,7 +1220,7 @@ s	|void	|process_special_blocks	|NN const char *const fullname\
 					|NN GV *const gv|NN CV *const cv
 #endif
 #if defined(PL_OP_SLAB_ALLOC)
-Apa	|void*	|Slab_Alloc	|int m|size_t sz
+Apa	|void*	|Slab_Alloc	|size_t sz
 Ap	|void	|Slab_Free	|NN void *op
 #  if defined(PERL_DEBUG_READONLY_OPS)
 poxM	|void	|pending_Slabs_to_ro
diff --git a/embed.h b/embed.h
index 0c52f84..a41de9d 100644
--- a/embed.h
+++ b/embed.h
@@ -3451,7 +3451,7 @@
 #endif
 #endif
 #if defined(PL_OP_SLAB_ALLOC)
-#define Slab_Alloc(a,b)		Perl_Slab_Alloc(aTHX_ a,b)
+#define Slab_Alloc(a)		Perl_Slab_Alloc(aTHX_ a)
 #define Slab_Free(a)		Perl_Slab_Free(aTHX_ a)
 #  if defined(PERL_DEBUG_READONLY_OPS)
 #ifdef PERL_CORE
diff --git a/op.c b/op.c
index 7e19f61..47901c1 100644
--- 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 **
diff --git a/op.h b/op.h
index 3c77999..e7f1b6d 100644
--- a/op.h
+++ b/op.h
@@ -590,9 +590,9 @@ struct loop {
 
 #if defined(PL_OP_SLAB_ALLOC)
 #define NewOp(m,var,c,type)	\
-	(var = (type *) Perl_Slab_Alloc(aTHX_ m,c*sizeof(type)))
+	(var = (type *) Perl_Slab_Alloc(aTHX_ c*sizeof(type)))
 #define NewOpSz(m,var,size)	\
-	(var = (OP *) Perl_Slab_Alloc(aTHX_ m,size))
+	(var = (OP *) Perl_Slab_Alloc(aTHX_ size))
 #define FreeOp(p) Perl_Slab_Free(aTHX_ p)
 #else
 #define NewOp(m, var, c, type)	\
diff --git a/proto.h b/proto.h
index 24a18af..4e0832f 100644
--- a/proto.h
+++ b/proto.h
@@ -3315,7 +3315,7 @@ STATIC void	S_process_special_blocks(pTHX_ const char *const fullname, GV *const
 
 #endif
 #if defined(PL_OP_SLAB_ALLOC)
-PERL_CALLCONV void*	Perl_Slab_Alloc(pTHX_ int m, size_t sz)
+PERL_CALLCONV void*	Perl_Slab_Alloc(pTHX_ size_t sz)
 			__attribute__malloc__
 			__attribute__warn_unused_result__;