diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 18:41:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 18:41:45 +0000 |
| commit | 4d61ec052de5c3a91dc64c80c032c2cbec44d845 (patch) | |
| tree | fcc319025627956e7cd3c2cd6510ed1bcd7b266c /regcomp.c | |
| parent | f248d07102861fd4d0819cc0b602f81105bc562c (diff) | |
| download | perl-4d61ec052de5c3a91dc64c80c032c2cbec44d845.tar.gz | |
sundry cleanups for clean build on windows
p4raw-id: //depot/perl@3659
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -409,7 +409,7 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da if (data && (flags & SCF_DO_SUBSTR)) data->pos_min += l; } - else if (strchr(PL_varies,OP(scan))) { + else if (strchr((char*)PL_varies,OP(scan))) { I32 mincount, maxcount, minnext, deltanext, pos_before, fl; regnode *oscan = scan; @@ -484,7 +484,7 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da /* Skip open. */ nxt = regnext(nxt); - if (!strchr(PL_simple,OP(nxt)) + if (!strchr((char*)PL_simple,OP(nxt)) && !(PL_regkind[(U8)OP(nxt)] == EXACT && *OPERAND(nxt) == 1)) goto nogo; @@ -631,7 +631,7 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da break; } } - else if (strchr(PL_simple,OP(scan)) || PL_regkind[(U8)OP(scan)] == ANYUTF8) { + else if (strchr((char*)PL_simple,OP(scan)) || PL_regkind[(U8)OP(scan)] == ANYUTF8) { if (flags & SCF_DO_SUBSTR) { scan_commit(data); data->pos_min++; @@ -896,7 +896,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) /* Starting-point info. */ again: if (OP(first) == EXACT); /* Empty, get anchored substr later. */ - else if (strchr(PL_simple+4,OP(first))) + else if (strchr((char*)PL_simple+4,OP(first))) r->regstclass = first; else if (PL_regkind[(U8)OP(first)] == BOUND || PL_regkind[(U8)OP(first)] == NBOUND) |