In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4e21c2336541ffbd836a371c42f59b251781450a?hp=279aef25246e63a7be992e42d2b92e22a892263e>
- Log ----------------------------------------------------------------- commit 4e21c2336541ffbd836a371c42f59b251781450a Author: Jarkko Hietaniemi <[email protected]> Date: Tue Dec 9 20:45:46 2014 -0500 Label conditionally unused. M dist/IO/poll.c commit 9f162648bc98e8343f866da6b51d9285a5e41968 Author: Jarkko Hietaniemi <[email protected]> Date: Tue Dec 9 20:48:32 2014 -0500 stdize_locale not used in POSIX. M embed.fnc M embed.h M proto.h commit 2afbc6522ad19982b2586affb3f24d49951b81b6 Author: Jarkko Hietaniemi <[email protected]> Date: Tue Dec 9 21:36:46 2014 -0500 Possibly uninitialized. op.c:8346:21: warning: 'start' may be used uninitialized in this function [-Wmaybe-uninitialized] op.c:8811:21: warning: 'start' may be used uninitialized in this function [-Wmaybe-uninitialized] M op.c commit 2ff17054686fbbea633300aef3b712b457152967 Author: Jarkko Hietaniemi <[email protected]> Date: Tue Dec 9 22:15:56 2014 -0500 The format is not a literal but well defined. M regcomp.c commit 0f17be83fce99eb5b6085bedc02f3b1cb03846bb Author: Jarkko Hietaniemi <[email protected]> Date: Tue Dec 9 22:46:24 2014 -0500 If no strtoul, the args are unused. (strtoul is defined as not_here() if not found.) M ext/POSIX/POSIX.xs ----------------------------------------------------------------------- Summary of changes: dist/IO/poll.c | 2 ++ embed.fnc | 5 ++++- embed.h | 2 +- ext/POSIX/POSIX.xs | 2 ++ op.c | 4 ++-- proto.h | 2 ++ regcomp.c | 2 ++ 7 files changed, 15 insertions(+), 4 deletions(-) diff --git a/dist/IO/poll.c b/dist/IO/poll.c index 9d39d57..03f6604 100644 --- a/dist/IO/poll.c +++ b/dist/IO/poll.c @@ -54,7 +54,9 @@ poll(struct pollfd *fds, unsigned long nfds, int timeout) FD_ZERO(&ifd); +#ifdef HAS_FSTAT again: +#endif FD_ZERO(&rfd); FD_ZERO(&wfd); diff --git a/embed.fnc b/embed.fnc index a757952..963a00f 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2429,9 +2429,12 @@ s |bool |isa_lookup |NN HV *stash|NN const char * const name \ |STRLEN len|U32 flags #endif +#if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C) +s |char* |stdize_locale |NN char* locs +#endif + #if defined(USE_LOCALE) \ && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX)) -s |char* |stdize_locale |NN char* locs ApM |bool |_is_cur_LC_category_utf8|int category #endif diff --git a/embed.h b/embed.h index b24a093..2bf125e 100644 --- a/embed.h +++ b/embed.h @@ -1771,7 +1771,7 @@ #define padname_dup(a,b) Perl_padname_dup(aTHX_ a,b) #define padnamelist_dup(a,b) Perl_padnamelist_dup(aTHX_ a,b) # endif -# if defined(USE_LOCALE) && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX)) +# if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C) #define stdize_locale(a) S_stdize_locale(aTHX_ a) # endif # if defined(USE_LOCALE_COLLATE) diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 48caf9e..490249e 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -3155,6 +3155,8 @@ strtoul(str, base = 0) unsigned long num; char *unparsed; PPCODE: + PERL_UNUSED_VAR(str); + PERL_UNUSED_VAR(base); num = strtoul(str, &unparsed, base); #if IVSIZE <= LONGSIZE if (num > IV_MAX) diff --git a/op.c b/op.c index cea31db..edb280f 100644 --- a/op.c +++ b/op.c @@ -8089,7 +8089,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) CV *clonee = NULL; HEK *hek = NULL; bool reusable = FALSE; - OP *start; + OP *start = NULL; #ifdef PERL_DEBUG_READONLY_OPS OPSLAB *slab = NULL; #endif @@ -8450,7 +8450,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, bool has_name; bool name_is_utf8 = o && !o_is_gv && SvUTF8(cSVOPo->op_sv); bool is_begin = FALSE; - OP *start; + OP *start = NULL; #ifdef PERL_DEBUG_READONLY_OPS OPSLAB *slab = NULL; #endif diff --git a/proto.h b/proto.h index e39a4b4..3345d1c 100644 --- a/proto.h +++ b/proto.h @@ -8154,6 +8154,8 @@ PERL_CALLCONV SV* Perl_sv_dup_inc(pTHX_ const SV *const sstr, CLONE_PARAMS *cons #endif #if defined(USE_LOCALE) && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX)) PERL_CALLCONV bool Perl__is_cur_LC_category_utf8(pTHX_ int category); +#endif +#if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C) STATIC char* S_stdize_locale(pTHX_ char* locs) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_STDIZE_LOCALE \ diff --git a/regcomp.c b/regcomp.c index cb905eb..a1784c7 100644 --- a/regcomp.c +++ b/regcomp.c @@ -17289,7 +17289,9 @@ S_put_range(pTHX_ SV *sv, UV start, const UV end, const bool allow_literals) format = (this_end < 256) ? "\\x{%02"UVXf"}-\\x{%02"UVXf"}" : "\\x{%04"UVXf"}-\\x{%04"UVXf"}"; + GCC_DIAG_IGNORE(-Wformat-nonliteral); Perl_sv_catpvf(aTHX_ sv, format, start, this_end); + GCC_DIAG_RESTORE; break; } } -- Perl5 Master Repository
