paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 21:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #34118, unclean NOTLETTER check

Browse Source 
git-svn-id: trunk@39608 -
This commit is contained in:
michael 2018-08-12 08:55:37 +00:00
parent 64e4f169de
commit 2d2ba5f0cd
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/regexpr/src/regexpr.pas
View File

@ -2697,34 +2697,29 @@ function TRegExpr.regrepeat (p : PRegExprChar; AMax : PtrInt) : PtrInt;
end;
{$IFNDEF UseSetOfChar} //###0.929
ANYLETTER:
while (Result < TheMax) and
IsWordChar(scan^) //###0.940
{ ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9')
or (scan^ >= 'A') and (scan^ <= 'Z') or (scan^ = '_'))} do begin
while (Result < TheMax) and IsWordChar(scan^) do //###0.940
begin
inc (Result);
inc (scan);
end;
end;
NOTLETTER:
while (Result < TheMax) and
not IsWordChar(scan^) //###0.940
{ not ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9')
or (scan^ >= 'A') and (scan^ <= 'Z')
or (scan^ = '_'))} do begin
while (Result < TheMax) and not IsWordChar(scan^) do //###0.940
begin
inc (Result);
inc (scan);
end;
end;
ANYSPACE:
while (Result < TheMax) and
IsSpaceChar(scan) do begin
while (Result < TheMax) and IsSpaceChar(scan) do
begin
inc (Result);
inc (scan);
end;
end;
NOTSPACE:
while (Result < TheMax) and
Not IsSpaceChar(scan) do begin
while (Result < TheMax) and Not IsSpaceChar(scan) do
begin
inc (Result);
inc (scan);
end;
end;
{$ENDIF}
ANYOFTINYSET: begin
while (Result < TheMax) and //!!!TinySet