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

* Avoid possible AV when the string-index is larger then the string-length

Browse Source 
git-svn-id: trunk@16536 -
This commit is contained in:
joost 2010-12-10 15:32:34 +00:00
parent deece746a3
commit af2ef60a29
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/regexpr/src/regex.pp
View File

@ -254,6 +254,13 @@ var
pc : pchar;
x:integer;
begin
if Offset>length(S) then
begin
Result := False;
MatchPos := 0;
Exit;
end;
{if the regex string hasn't been parsed yet, do so}
if (FStateCount = 0) then begin
if not Parse(ErrorPos, ErrorCode) then