In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/14975c4165fc5ce9497b8d4867b890ea7f7721a9?hp=de001ba03c571a64464f79c5cfa54a164b9bbce8>
- Log ----------------------------------------------------------------- commit 14975c4165fc5ce9497b8d4867b890ea7f7721a9 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Dec 4 22:08:28 2014 -0500 gcc thinks it can see how 'entry' can be accessed uninitialized. M dist/Data-Dumper/Dumper.xs commit df451332640aba1786afb8bc54074977b2af2db5 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Dec 4 21:58:56 2014 -0500 POSIX nan: declaring s always potentially unused. M ext/POSIX/POSIX.xs commit f0c80be3322102104883d22f8253a727430f61ca Author: Jarkko Hietaniemi <[email protected]> Date: Thu Dec 4 21:41:11 2014 -0500 Unused hv_store() result. M ext/POSIX/POSIX.xs commit bfecf9cc60d93f16cf2cc6ec19056c43388a9fdb Author: Jarkko Hietaniemi <[email protected]> Date: Thu Dec 4 21:40:19 2014 -0500 Unused var. M ext/NDBM_File/NDBM_File.xs commit 947a9e0f6c5ff845ed26cd24171e7dcddc3d0a60 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Dec 4 21:23:59 2014 -0500 printf type-matching continues. again. M dump.c ----------------------------------------------------------------------- Summary of changes: dist/Data-Dumper/Dumper.xs | 2 +- dump.c | 2 +- ext/NDBM_File/NDBM_File.xs | 2 ++ ext/POSIX/POSIX.xs | 6 +++--- 4 files changed, 7 insertions(+), 5 deletions(-) diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 2ffa867..372c073 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -798,7 +798,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, else if (realtype == SVt_PVHV) { SV *totpad, *newapad; SV *sname; - HE *entry; + HE *entry = NULL; char *key; I32 klen; SV *hval; diff --git a/dump.c b/dump.c index cc8ff70..cb14f43 100644 --- a/dump.c +++ b/dump.c @@ -993,7 +993,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) (label_flags & SVf_UTF8))); } Perl_dump_indent(aTHX_ level, file, "SEQ = %u\n", - cCOPo->cop_seq); + (unsigned int)cCOPo->cop_seq); break; case OP_ENTERLOOP: Perl_dump_indent(aTHX_ level, file, "REDO ===> "); diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs index e3adf3f..dae199d 100644 --- a/ext/NDBM_File/NDBM_File.xs +++ b/ext/NDBM_File/NDBM_File.xs @@ -129,6 +129,8 @@ datum_key ndbm_NEXTKEY(db, key) NDBM_File db datum_key key = NO_INIT + CLEANUP: + PERL_UNUSED_VAR(key); #define ndbm_error(db) dbm_error(db->dbp) int diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index aecbd67..81dc18b 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1580,7 +1580,7 @@ static XSPROTO(is_common) Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "Calling POSIX::%"HEKf"() is deprecated", HEKfARG(GvNAME_HEK(CvGV(cv)))); - hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0); + (void)hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0); } } @@ -2631,10 +2631,10 @@ NV nan(s = 0) char* s; CODE: + PERL_UNUSED_VAR(s); #ifdef c99_nan RETVAL = c99_nan(s ? s : ""); #elif defined(NV_NAN) - PERL_UNUSED_VAR(s); /* XXX if s != NULL, warn about unused argument, * or implement the nan payload setting. */ RETVAL = NV_NAN; @@ -3024,7 +3024,7 @@ tmpnam() HV *warned = get_hv("POSIX::_warned", GV_ADD | GV_ADDMULTI); if (! hv_exists(warned, (const char *)&PL_op, sizeof(PL_op))) { Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "Calling POSIX::tmpnam() is deprecated"); - hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0); + (void)hv_store(warned, (const char *)&PL_op, sizeof(PL_op), &PL_sv_yes, 0); } } len = strlen(tmpnam(SvPV(RETVAL, i))); -- Perl5 Master Repository
