regexec.c: silence compiler warning

The code was mixing signed and unsigned types

diff --git a/regexec.c b/regexec.c
index a07472d..c5ae04d 100644 (file)
--- 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;
                /* execute the code in the {...} */
 
                dSP;

-               PADOFFSET before;
+               IV before;

                OP * const oop = PL_op;
                COP * const ocurcop = PL_curcop;
                OP *nop;
                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 */
                /* 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;
                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;
                    ret = &PL_sv_undef;   /* protect against empty (?{}) blocks. */
                else {
                    ret = POPs;