diff options
| author | Robin Barker <RMBarker@cpan.org> | 2006-11-08 15:29:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-09 12:32:41 +0000 |
| commit | 3b6647e0b98cc06c53e0b12e71e4f27d9d9b5c06 (patch) | |
| tree | 229998afedc510c6d5cc2709653e615704f7a936 /regexec.c | |
| parent | 6d99fb9ba0d3f5a4dce25918bb0a33b8815bebfd (diff) | |
| download | perl-3b6647e0b98cc06c53e0b12e71e4f27d9d9b5c06.tar.gz | |
***speculative*** was RE: [PATCH] regexec.c - silence compiler warning
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <2C2E01334A940D4792B3E115F95B7226120AA6@exchsvr1.npl.ad.local>
p4raw-id: //depot/perl@29241
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -218,7 +218,7 @@ STATIC char * S_regcppop(pTHX_ const regexp *rex) { dVAR; - I32 i; + U32 i; char *input; GET_RE_DEBUG_FLAGS_DECL; @@ -272,7 +272,7 @@ S_regcppop(pTHX_ const regexp *rex) * building DynaLoader will fail: * "Error: '*' not in typemap in DynaLoader.xs, line 164" * --jhi */ - for (i = *PL_reglastparen + 1; (U32)i <= rex->nparens; i++) { + for (i = *PL_reglastparen + 1; i <= rex->nparens; i++) { if (i > PL_regsize) PL_regstartp[i] = -1; PL_regendp[i] = -1; @@ -2581,7 +2581,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) char *startpoint = PL_reginput; SV *popmark = NULL; SV *sv_commit = NULL; - int lastopen = 0; + unsigned int lastopen = 0; /* these three flags are set by various ops to signal information to * the very next op. They have a useful lifetime of exactly one loop * iteration, and are not preserved or restored by state pushes/pops @@ -3356,7 +3356,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) do_ref: ln = PL_regstartp[n]; PL_reg_leftiter = PL_reg_maxiter; /* Void cache */ - if ((I32)*PL_reglastparen < n || ln == -1) + if (*PL_reglastparen < n || ln == -1) sayNO; /* Do not match unless seen CLOSEn. */ if (ln == PL_regendp[n]) break; @@ -3620,10 +3620,10 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) PL_regendp[n] = locinput - PL_bostr; /*if (n > PL_regsize) PL_regsize = n;*/ - if (n > (I32)*PL_reglastparen) + if (n > *PL_reglastparen) *PL_reglastparen = n; *PL_reglastcloseparen = n; - if (cur_eval && cur_eval->u.eval.close_paren == (U32)n) { + if (cur_eval && cur_eval->u.eval.close_paren == n) { goto fake_end; } break; @@ -3641,11 +3641,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) PL_regendp[n] = locinput - PL_bostr; /*if (n > PL_regsize) PL_regsize = n;*/ - if (n > (I32)*PL_reglastparen) + if (n > *PL_reglastparen) *PL_reglastparen = n; *PL_reglastcloseparen = n; - if ( n == ARG(scan) || (cur_eval && - cur_eval->u.eval.close_paren == (U32)n)) + if ( n == ARG(scan) || (cur_eval && + cur_eval->u.eval.close_paren == n)) break; } } @@ -3655,7 +3655,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) /*NOTREACHED*/ case GROUPP: n = ARG(scan); /* which paren pair */ - sw = (bool)((I32)*PL_reglastparen >= n && PL_regendp[n] != -1); + sw = (bool)(*PL_reglastparen >= n && PL_regendp[n] != -1); break; case NGROUPP: /* reg_check_named_buff_matched returns 0 for no match */ @@ -3663,7 +3663,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) break; case INSUBP: n = ARG(scan); - sw = (cur_eval && (!n || cur_eval->u.eval.close_paren == (U32)n)); + sw = (cur_eval && (!n || cur_eval->u.eval.close_paren == n)); break; case DEFINEP: sw = 0; @@ -4069,10 +4069,10 @@ NULL /* if paren positive, emulate an OPEN/CLOSE around A */ if (ST.me->flags) { - I32 paren = ST.me->flags; + U32 paren = ST.me->flags; if (paren > PL_regsize) PL_regsize = paren; - if (paren > (I32)*PL_reglastparen) + if (paren > *PL_reglastparen) *PL_reglastparen = paren; scan += NEXT_OFF(scan); /* Skip former OPEN. */ } @@ -4245,7 +4245,7 @@ NULL ST.paren = scan->flags; /* Which paren to set */ if (ST.paren > PL_regsize) PL_regsize = ST.paren; - if (ST.paren > (I32)*PL_reglastparen) + if (ST.paren > *PL_reglastparen) *PL_reglastparen = ST.paren; ST.min = ARG1(scan); /* min to match */ ST.max = ARG2(scan); /* max to match */ |