This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For Perl_Slab_Alloc(), eliminate the unused parameter 'm'.
authorNicholas Clark <nick@ccl4.org>
Mon, 2 Apr 2007 19:53:06 +0000 (19:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 2 Apr 2007 19:53:06 +0000 (19:53 +0000)
p4raw-id: //depot/perl@30832

embed.fnc
embed.h
op.c
op.h
proto.h

index 695adfb..27fa43d 100644 (file)
--- 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 (file)
--- a/embed.h
+++ b/embed.h
 #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 (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 **
diff --git a/op.h b/op.h
index 3c77999..e7f1b6d 100644 (file)
--- 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 (file)
--- 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__;