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

* Reverse IndexOf. Increases speed of freeing collection with a factor N^2

Browse Source 
git-svn-id: trunk@19268 -
This commit is contained in:
michael 2011-09-28 17:44:32 +00:00
parent 448e3db450
commit 39d8ee1136
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/classes/lists.inc
View File

@ -198,9 +198,9 @@ end;
function TFPList.IndexOf(Item: Pointer): Integer; function TFPList.IndexOf(Item: Pointer): Integer;
begin begin
Result := 0; Result:=Count-1;
while(Result < FCount) and (Flist^[Result] <> Item) do Result := Result + 1; while (Result >=0) and (Flist^[Result]<>Item) do
If Result = FCount then Result := -1; Result:=Result - 1;
end; end;
procedure TFPList.Insert(Index: Integer; Item: Pointer); procedure TFPList.Insert(Index: Integer; Item: Pointer);