Remove context param from set_padlist
authorFather Chrysostomos <sprout@cpan.org>
Fri, 21 Nov 2014 08:05:00 +0000 (00:05 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 21 Nov 2014 08:24:57 +0000 (00:24 -0800)
It doesn’t need it.

cv.h
embed.fnc
embed.h
pad.c
proto.h

diff --git a/cv.h b/cv.h
index 5e69ef5..a3cbdb3 100644 (file)
--- a/cv.h
+++ b/cv.h
@@ -71,7 +71,7 @@ See L<perlguts/Autoloading with XSUBs>.
        &(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist)))
 /* CvPADLIST_set is not public API, it can be removed one day, once stabilized */
 #ifdef DEBUGGING
-#  define CvPADLIST_set(sv, padlist) Perl_set_padlist(aTHX_ (CV*)sv, padlist)
+#  define CvPADLIST_set(sv, padlist) Perl_set_padlist((CV*)sv, padlist)
 #else
 #  define CvPADLIST_set(sv, padlist) (CvPADLIST(sv) = (padlist))
 #endif
index 23f8e47..17d3a5d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2524,7 +2524,7 @@ s |void   |deb_stack_n    |NN SV** stack_base|I32 stack_min \
 : pad API
 Apda   |PADLIST*|pad_new       |int flags
 #ifdef DEBUGGING
-p    |void|set_padlist| NN CV * cv | NULLOK PADLIST * padlist
+pnX    |void|set_padlist| NN CV * cv | NULLOK PADLIST * padlist
 #endif
 #if defined(PERL_IN_PAD_C)
 s      |PADOFFSET|pad_alloc_name|NN SV *namesv|U32 flags \
diff --git a/embed.h b/embed.h
index b9d6d8d..61a81b4 100644 (file)
--- a/embed.h
+++ b/embed.h
 #  endif
 #  if defined(DEBUGGING)
 #define get_debug_opts(a,b)    Perl_get_debug_opts(aTHX_ a,b)
-#define set_padlist(a,b)       Perl_set_padlist(aTHX_ a,b)
+#define set_padlist            Perl_set_padlist
 #    if defined(PERL_IN_PAD_C)
 #define cv_dump(a,b)           S_cv_dump(aTHX_ a,b)
 #    endif
diff --git a/pad.c b/pad.c
index e5fa3b4..9da5536 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -197,7 +197,7 @@ sv_eq_pvn_flags(pTHX_ const SV *sv, const char* pv, const STRLEN pvlen, const U3
 
 #ifdef DEBUGGING
 void
-Perl_set_padlist(pTHX_ CV * cv, PADLIST *padlist){
+Perl_set_padlist(CV * cv, PADLIST *padlist){
     PERL_ARGS_ASSERT_SET_PADLIST;
 #  if PTRSIZE == 8
     if((Size_t)padlist == UINT64_C(0xEFEFEFEFEFEFEFEF)){
diff --git a/proto.h b/proto.h
index 76c47d5..01e6a22 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5429,8 +5429,8 @@ PERL_CALLCONV void        Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
        assert(sv)
 
 PERL_CALLCONV SV*      Perl_pad_sv(pTHX_ PADOFFSET po);
-PERL_CALLCONV void     Perl_set_padlist(pTHX_ CV * cv, PADLIST * padlist)
-                       __attribute__nonnull__(pTHX_1);
+PERL_CALLCONV void     Perl_set_padlist(CV * cv, PADLIST * padlist)
+                       __attribute__nonnull__(1);
 #define PERL_ARGS_ASSERT_SET_PADLIST   \
        assert(cv)