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

fix regexp bug in checking too far for regmust

Browse Source 
svn: r4460
This commit is contained in:
Matthew Flatt 2006-10-01 21:46:48 +00:00
parent 57f3a709d1
commit 029659c1d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2315,10 +2315,10 @@ regexec(const char *who,
if ((spos - stringpos) + l <= stringlen) {
if (prog->flags & REGEXP_MUST_CI)
pos = l_strchr_ci(string, spos, stringlen - (l - 1),
pos = l_strchr_ci(string, spos, stringlen - (spos - stringpos) - (l - 1),
(ITO(prog->program, (char *)prog) XFORM_OK_PLUS prog->regmust)[0]);
else
pos = l_strchr(string, spos, stringlen - (l - 1),
pos = l_strchr(string, spos, stringlen - (spos - stringpos) - (l - 1),
(ITO(prog->program, (char *)prog) XFORM_OK_PLUS prog->regmust)[0]);
if (pos == -1)
return 0; /* Not present. */