paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small correction in POS (prevent moving out of buffer if offset<>1)

Browse Source 
git-svn-id: trunk@33057 -
This commit is contained in:
michael 2016-02-06 12:17:13 +00:00
parent 6d051892e5
commit e2733c9a50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/wstrings.inc
View File

@ -586,7 +586,7 @@ begin
Pos:=0; Pos:=0;
if (Length(SubStr)>0) and (Offset>0) and (Offset<Length(Source)) then if (Length(SubStr)>0) and (Offset>0) and (Offset<Length(Source)) then
begin begin
MaxLen:=Length(source)-Length(SubStr); MaxLen:=Length(source)-Length(SubStr)-(OffSet-1);
i:=Offset-1; i:=Offset-1;
pc:=@source[Offset]; pc:=@source[Offset];
while (i<=MaxLen) do while (i<=MaxLen) do