In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2596c5fb5d425fd255b0afcad96ceb5b1a9c3994?hp=5302cd271f8c7e7601b4a8eb2e5b1a52c146b8a3>
- Log ----------------------------------------------------------------- commit 2596c5fb5d425fd255b0afcad96ceb5b1a9c3994 Author: Father Chrysostomos <[email protected]> Date: Fri Nov 21 00:09:43 2014 -0800 Increase other ExtUtils modsâ version to 3.27 M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm commit e69651e7f17a3e1bb02146eaba10463f0375c84e Author: Father Chrysostomos <[email protected]> Date: Fri Nov 21 00:05:00 2014 -0800 Remove context param from set_padlist It doesnât need it. M cv.h M embed.fnc M embed.h M pad.c M proto.h commit 5119ebe1e5c8604dd457794254aa37705a17e5bf Author: Father Chrysostomos <[email protected]> Date: Fri Nov 21 00:00:38 2014 -0800 Increase $ExtUtils::ParseXS::VERSION to 3.27 M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm commit 1a8c03e0d919c2a348a726d9a03b4299c4479001 Author: Father Chrysostomos <[email protected]> Date: Thu Nov 20 23:59:59 2014 -0800 ExtUtils::ParseXS: Suppress unused âfileâ warning Since newXS_deffile was introduced, we donât always use the file variable. M dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm ----------------------------------------------------------------------- Summary of changes: cv.h | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 3 ++- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm | 2 +- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm | 2 +- embed.fnc | 2 +- embed.h | 2 +- pad.c | 2 +- proto.h | 4 ++-- 10 files changed, 12 insertions(+), 11 deletions(-) diff --git a/cv.h b/cv.h index 5e69ef5..a3cbdb3 100644 --- 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 diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 75feda5..765ef86 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -11,7 +11,7 @@ use Symbol; our $VERSION; BEGIN { - $VERSION = '3.26'; + $VERSION = '3.27'; } use ExtUtils::ParseXS::Constants $VERSION; use ExtUtils::ParseXS::CountLines $VERSION; @@ -920,6 +920,7 @@ EOF print Q(<<"EOF"); # PERL_UNUSED_VAR(cv); /* -W */ +# PERL_UNUSED_VAR(file); # PERL_UNUSED_VAR(items); /* -W */ EOF diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm index 710785f..7cc1184 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm @@ -3,7 +3,7 @@ use strict; use warnings; use Symbol; -our $VERSION = '3.26'; +our $VERSION = '3.27'; =head1 NAME diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm index 11ede92..8ac7f22 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm @@ -1,7 +1,7 @@ package ExtUtils::ParseXS::CountLines; use strict; -our $VERSION = '3.26'; +our $VERSION = '3.27'; our $SECTION_END_MARKER; diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm index 3d3fa1e..ac427da 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Eval.pm @@ -2,7 +2,7 @@ package ExtUtils::ParseXS::Eval; use strict; use warnings; -our $VERSION = '3.26'; +our $VERSION = '3.27'; =head1 NAME diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm index 30ea74f..ff60524 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm @@ -6,7 +6,7 @@ use File::Spec; use lib qw( lib ); use ExtUtils::ParseXS::Constants (); -our $VERSION = '3.26'; +our $VERSION = '3.27'; our (@ISA, @EXPORT_OK); @ISA = qw(Exporter); diff --git a/embed.fnc b/embed.fnc index 23f8e47..17d3a5d 100644 --- 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 -pX |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 --- a/embed.h +++ b/embed.h @@ -1371,7 +1371,7 @@ # 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 --- 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 --- 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) -- Perl5 Master Repository
