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

* reverse merge of 33057

Browse Source 
git-svn-id: branches/fixes_3_0@33803 -
This commit is contained in:
marco 2016-05-25 20:38:55 +00:00
parent 9a23f1bdce
commit e8cc741cb3
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 then if Length(SubStr)>0 then
begin begin
MaxLen:=Length(source)-Length(SubStr)-(OffSet-1); MaxLen:=Length(source)-Length(SubStr);
i:=0; i:=0;
pc:=@source[1]; pc:=@source[1];
while (i<=MaxLen) do while (i<=MaxLen) do