In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0cb87cd1a3dc33e0a423b13170f3eeb1b6488b8c?hp=07fd17ee52a0c9e57138b5cb43fa8b18dcd3b06a>
- Log ----------------------------------------------------------------- commit 0cb87cd1a3dc33e0a423b13170f3eeb1b6488b8c Author: David Mitchell <[email protected]> Date: Fri Dec 19 17:05:27 2014 +0000 fix a couple of win32 op.c warnings These warnings appear on win32 smokes. op.c(8600) : warning C4244: 'function' : conversion from 'cv_flags_t' to 'char' , possible loss of data op.c(11905) : warning C4146: unary minus operator applied to unsigned type, res ult still unsigned Since I'm not running windows, I can't confirm that this commit shuts up these warnings, but I think think I've understood them correctly. M op.c commit 989909f9ef10b719692bd4948bb438240310ac61 Author: David Mitchell <[email protected]> Date: Fri Dec 19 16:54:01 2014 +0000 ODBM: fix a compiler warning. This has been applied blind since my system doesn't have libodbm, but it matches exactly the cast added to NDBM's typemap a few years ago to fix a similar warning. M ext/ODBM_File/typemap commit 7d10143ce07008cce6c3fa64c88f6d980da00789 Author: David Mitchell <[email protected]> Date: Fri Dec 19 16:31:51 2014 +0000 NDBM: silence 'unused var' warnings x 2 (I've done this blind because I don't have libndbm on my system) M ext/NDBM_File/NDBM_File.xs commit 9cdf4efdf7edab0a14edf8175f6115a3c49e165d Author: David Mitchell <[email protected]> Date: Fri Dec 19 16:09:19 2014 +0000 B.xs: remove redundant assignment Follow-up to 500f40f555ee. M ext/B/B.xs ----------------------------------------------------------------------- Summary of changes: ext/B/B.xs | 2 +- ext/NDBM_File/NDBM_File.xs | 4 ++++ ext/ODBM_File/typemap | 2 +- op.c | 4 ++-- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ext/B/B.xs b/ext/B/B.xs index 90bf8d5..52713fb 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1383,7 +1383,7 @@ aux_list(o, cv) bool is_hash = FALSE; #ifdef USE_ITHREADS PADLIST * const padlist = CvPADLIST(cv); - PAD *comppad = comppad = PadlistARRAY(padlist)[1]; + PAD *comppad = PadlistARRAY(padlist)[1]; #endif EXTEND(SP, len); diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs index dae199d..eed671a 100644 --- a/ext/NDBM_File/NDBM_File.xs +++ b/ext/NDBM_File/NDBM_File.xs @@ -136,11 +136,15 @@ ndbm_NEXTKEY(db, key) int ndbm_error(db) NDBM_File db + CLEANUP: + PERL_UNUSED_VAR(db); #define ndbm_clearerr(db) dbm_clearerr(db->dbp) void ndbm_clearerr(db) NDBM_File db + CLEANUP: + PERL_UNUSED_VAR(db); SV * diff --git a/ext/ODBM_File/typemap b/ext/ODBM_File/typemap index 8aed61c..706212d 100644 --- a/ext/ODBM_File/typemap +++ b/ext/ODBM_File/typemap @@ -42,7 +42,7 @@ T_DATUM_V $var.dsize = (int)len; } else { - $var.dptr = \"\"; + $var.dptr = (char *)\"\"; $var.dsize = 0; } T_GDATUM diff --git a/op.c b/op.c index d6100ba..aff219b 100644 --- a/op.c +++ b/op.c @@ -8597,7 +8597,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, const_sv = NULL; else const_sv = - S_op_const_sv(aTHX_ start, PL_compcv, CvCLONE(PL_compcv)); + S_op_const_sv(aTHX_ start, PL_compcv, cBOOL(CvCLONE(PL_compcv))); if (SvPOK(gv) || (SvROK(gv) && SvTYPE(SvRV(gv)) != SVt_PVCV)) { assert (block); @@ -11897,7 +11897,7 @@ Perl_ck_subr(pTHX_ OP *o) /* make class name a shared cow string to speedup method calls */ /* constant string might be replaced with object, f.e. bigint */ if (const_class && !SvROK(*const_class)) { - STRLEN len; + SSize_t len; const char* str = SvPV(*const_class, len); if (len) { SV* const shared = newSVpvn_share( -- Perl5 Master Repository
