In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b3611286c90f556f03af31aa41e42e4fe258f142?hp=d60679e1ba847357b5082ddfc26f2ab5c7328f5f>
- Log ----------------------------------------------------------------- commit b3611286c90f556f03af31aa41e42e4fe258f142 Author: Karl Williamson <[email protected]> Date: Wed Dec 28 21:49:06 2016 -0700 APItest.xs: Silence compiler warnings See: http://www.nntp.perl.org/group/perl.perl5.porters/2016/12/msg241877.html ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/APItest.xs | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 39af336fb2..e3e1593dbf 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -5320,6 +5320,9 @@ test_isASCII_utf8(unsigned char * p, int type) PREINIT: const unsigned char * e; CODE: +#ifndef DEBUGGING + PERL_UNUSED_VAR(e); +#endif if (type >= 0) { e = p + UTF8SKIP(p) - type; RETVAL = isASCII_utf8_safe(p, e); @@ -5335,6 +5338,9 @@ test_isASCII_LC_utf8(unsigned char * p, int type) PREINIT: const unsigned char * e; CODE: +#ifndef DEBUGGING + PERL_UNUSED_VAR(e); +#endif if (type >= 0) { e = p + UTF8SKIP(p) - type; RETVAL = isASCII_LC_utf8_safe(p, e); @@ -6205,7 +6211,7 @@ test_toLOWER_utf8(SV * p, int type) AV *av; SV *utf8; const unsigned char * e; - UV resultant_cp; + UV resultant_cp = UV_MAX; /* Initialized because of dumb compilers */ CODE: input = (U8 *) SvPV(p, len); av = newAV(); @@ -6295,7 +6301,7 @@ test_toFOLD_utf8(SV * p, int type) AV *av; SV *utf8; const unsigned char * e; - UV resultant_cp; + UV resultant_cp = UV_MAX; CODE: input = (U8 *) SvPV(p, len); av = newAV(); @@ -6385,7 +6391,7 @@ test_toUPPER_utf8(SV * p, int type) AV *av; SV *utf8; const unsigned char * e; - UV resultant_cp; + UV resultant_cp = UV_MAX; CODE: input = (U8 *) SvPV(p, len); av = newAV(); @@ -6468,7 +6474,7 @@ test_toTITLE_utf8(SV * p, int type) AV *av; SV *utf8; const unsigned char * e; - UV resultant_cp; + UV resultant_cp = UV_MAX; CODE: input = (U8 *) SvPV(p, len); av = newAV(); -- Perl5 Master Repository
