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

* Patch from Alexey T. closes #39705

Browse Source 
* don't use copy in helper.indexof(). Watch those 0 based indexes.
This commit is contained in:
marcoonthegit 2022-08-18 13:58:40 +02:00
parent 9e14dee1c3
commit d25daba08a
1 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
rtl/objpas/sysutils/syshelp.inc
View File

@ -653,12 +653,19 @@ function TStringHelper.IndexOf(AValue: Char; StartIndex: SizeInt;
ACount: SizeInt): SizeInt;
Var
S : String;
CountLim : SizeInt;
begin
S:=System.Copy(Self,StartIndex+1,ACount);
Result:=Pos(AValue,S)-1;
if Result<>-1 then
if StartIndex<0 then
StartIndex:=0;
CountLim:=System.Length(Self)-StartIndex;
if ACount>CountLim then
ACount:=CountLim;
if ACount<=0 then
Exit(-1);
// pointer casts are to access self as 0 based index!
Result:=IndexChar(PChar(Pointer(self))[StartIndex],ACount,AValue);
if Result>=0 then
Result:=Result+StartIndex;
end;
@ -667,13 +674,30 @@ function TStringHelper.IndexOf(const AValue: string; StartIndex: SizeInt;
ACount: SizeInt): SizeInt;
Var
S : String;
CountLim,NV,Ofs : SizeInt;
SP,SE : PChar;
begin
S:=System.Copy(Self,StartIndex+1,ACount);
Result:=Pos(AValue,S)-1;
if Result<>-1 then
Result:=Result+StartIndex;
if StartIndex<0 then
StartIndex:=0;
CountLim:=System.Length(Self)-StartIndex;
if ACount>CountLim then
ACount:=CountLim;
NV:=System.Length(AValue);
if (NV>0) and (ACount>=NV) then
begin
SP:=PChar(Pointer(Self))+StartIndex;
SE:=SP+ACount-NV+1;
repeat
Ofs:=IndexChar(SP^,SE-SP,PChar(Pointer(AValue))[0]);
if Ofs<0 then
Break;
SP:=SP+Ofs+1;
if CompareChar(SP^,PChar(Pointer(AValue))[1],NV-1)=0 then
Exit(SP-PChar(Pointer(Self))-1);
until false;
end;
Result:=-1;
end;
function TStringHelper.IndexOfUnQuoted(const AValue: string; StartQuote,