diff options
author | Steve Hay <SteveHay@planit.com> | 2006-11-01 13:07:37 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2006-11-01 13:07:37 +0000 |
commit | 86413ec05edbed389a8f74a82fd028f2d16de4b8 (patch) | |
tree | 9abb24fb7f353c0288ce8346691bc94001c8b2f5 /regexec.c | |
parent | 63ad731da6e7c95184317616677400634991d7a4 (diff) | |
download | perl-86413ec05edbed389a8f74a82fd028f2d16de4b8.tar.gz |
Silence VC++ compiler warnings
See: http://www.nntp.perl.org/group/perl.daily-build.reports/42208
p4raw-id: //depot/perl@29180
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -3622,7 +3622,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog) break; case INSUBP: n = ARG(scan); - sw = (cur_eval && (!n || cur_eval->u.eval.close_paren == n)); + sw = (cur_eval && (!n || cur_eval->u.eval.close_paren == (U32)n)); break; case DEFINEP: sw = 0; @@ -4209,7 +4209,7 @@ NULL ST.min = ARG1(scan); /* min to match */ ST.max = ARG2(scan); /* max to match */ if (cur_eval && cur_eval->u.eval.close_paren && - cur_eval->u.eval.close_paren == ST.paren) { + cur_eval->u.eval.close_paren == (U32)ST.paren) { ST.min=1; ST.max=1; } @@ -4419,7 +4419,7 @@ NULL PL_reginput = locinput; CURLY_SETPAREN(ST.paren, ST.count); if (cur_eval && cur_eval->u.eval.close_paren && - cur_eval->u.eval.close_paren == ST.paren) { + cur_eval->u.eval.close_paren == (U32)ST.paren) { goto fake_end; } PUSH_STATE_GOTO(CURLY_B_min_known, ST.B); @@ -4444,7 +4444,7 @@ NULL curly_try_B_min: CURLY_SETPAREN(ST.paren, ST.count); if (cur_eval && cur_eval->u.eval.close_paren && - cur_eval->u.eval.close_paren == ST.paren) { + cur_eval->u.eval.close_paren == (U32)ST.paren) { goto fake_end; } PUSH_STATE_GOTO(CURLY_B_min, ST.B); @@ -4457,7 +4457,7 @@ NULL curly_try_B_max: /* a successful greedy match: now try to match B */ if (cur_eval && cur_eval->u.eval.close_paren && - cur_eval->u.eval.close_paren == ST.paren) { + cur_eval->u.eval.close_paren == (U32)ST.paren) { goto fake_end; } { |