suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more improvements to find a 'regmust' string (PR 9602)

Browse Source 
svn: r10751
This commit is contained in:
Matthew Flatt 2008-07-13 22:14:25 +00:00
parent 0f97bbcd9e
commit f83f19ea55
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mzscheme/src/regexp.c
View File

@ -245,6 +245,7 @@ regcomp(char *expstr, rxpos exp, int explen, int pcre)
* strong reason, but sufficient in the absence of others.
*/
if (flags&SPSTART) {
int prev_op = 0;
longest = 0;
longest_is_ci = 0;
len = 0;
@ -276,13 +277,18 @@ regcomp(char *expstr, rxpos exp, int explen, int pcre)
longest_is_ci = 0;
}
break;
} else if ((mop == OPENN)
|| (mop == SAVECONST)
|| ((mop >= OPEN) && (mop < CLOSE))) {
mscan = NEXT_OP(mscan);
} else if ((mop == BRANCH) && (prev_op != BRANCH)) {
int mnext;
mnext = NEXT_OP(mscan);
if (rOP(mnext) != BRANCH) {
/* A branch with only one choice */
mscan = OPERAND(mscan);
} else
break;
} else
break;
}
prev_op = rOP(scan);
}
if (longest) {
r->regmust = longest;