In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b53eee5dcaba7597084a8dcdea596adfbc2b9544?hp=c7e74775aeccc7506df4216c4a137b2c702187fc>
- Log ----------------------------------------------------------------- commit b53eee5dcaba7597084a8dcdea596adfbc2b9544 Author: David Mitchell <[email protected]> Date: Tue Feb 24 12:12:21 2015 +0000 silence some compiler warnings. (Some compilers have strange ideas about the signedness of the bool type verses the signedness of a boolean expression like a == b). ----------------------------------------------------------------------- Summary of changes: pad.c | 2 +- regexec.c | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/pad.c b/pad.c index aa63fde..057a502 100644 --- a/pad.c +++ b/pad.c @@ -2126,7 +2126,7 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned, S_cv_clone(aTHX_ (CV *)ppad[ix], (CV *)PL_curpad[ix], *cvp, cloned); - hv_store(cloned, (char *)&ppad[ix], + (void)hv_store(cloned, (char *)&ppad[ix], sizeof(CV *), SvREFCNT_inc_simple_NN(PL_curpad[ix]), 0); diff --git a/regexec.c b/regexec.c index 82ef20d..9979c1a 100644 --- a/regexec.c +++ b/regexec.c @@ -5589,7 +5589,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) n = (NEXTCHR_IS_EOS) ? isWORDCHAR_L1('\n') : isWORDCHAR_utf8((U8*)locinput); - match = ln != n; + match = cBOOL(ln != n); break; case GCB_BOUND: if (locinput == reginfo->strbeg || NEXTCHR_IS_EOS) { @@ -5658,7 +5658,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) n = (NEXTCHR_IS_EOS) ? isWORDCHAR_L1('\n') : isWORDCHAR_L1(nextchr); - match = ln != n; + match = cBOOL(ln != n); break; case GCB_BOUND: @@ -8004,7 +8004,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, char *loceol = reginfo->strend; /* local version */ I32 hardcount = 0; /* How many matches so far */ bool utf8_target = reginfo->is_utf8_target; - int to_complement = 0; /* Invert the result? */ + unsigned int to_complement = 0; /* Invert the result? */ UV utf8_flags; _char_class_number classnum; #ifndef DEBUGGING -- Perl5 Master Repository
