In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a6dc34f13cb655734fde4d3a1aa6827cedf93e60?hp=d2f13afb5844a212a93826c15ebfd8f309693cdb>
- Log ----------------------------------------------------------------- commit a6dc34f13cb655734fde4d3a1aa6827cedf93e60 Author: David Mitchell <[email protected]> Date: Tue Dec 11 13:44:36 2012 +0000 regexec.c: silence compiler warning The code was mixing signed and unsigned types ----------------------------------------------------------------------- Summary of changes: regexec.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/regexec.c b/regexec.c index a07472d..c5ae04d 100644 --- a/regexec.c +++ b/regexec.c @@ -4823,7 +4823,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) /* execute the code in the {...} */ dSP; - PADOFFSET before; + IV before; OP * const oop = PL_op; COP * const ocurcop = PL_curcop; OP *nop; @@ -4948,11 +4948,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog) /* we don't use MULTICALL here as we want to call the * first op of the block of interest, rather than the * first op of the sub */ - before = SP-PL_stack_base; + before = (IV)(SP-PL_stack_base); PL_op = nop; CALLRUNOPS(aTHX); /* Scalar context. */ SPAGAIN; - if (SP-PL_stack_base == before) + if ((IV)(SP-PL_stack_base) == before) ret = &PL_sv_undef; /* protect against empty (?{}) blocks. */ else { ret = POPs; -- Perl5 Master Repository
