paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:29:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Laco to limit growth of TFPList

Browse Source 
git-svn-id: trunk@34462 -
This commit is contained in:
michael 2016-09-08 19:03:11 +00:00
parent c2fec2e819
commit b8b96f0c8c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,10 +175,11 @@ var
IncSize : Longint;
begin
if FCount < FCapacity then exit(self);
IncSize := 4;
if FCapacity > 3 then IncSize := IncSize + 4;
if FCapacity > 8 then IncSize := IncSize+8;
if FCapacity > 127 then Inc(IncSize, FCapacity shr 2);
if FCapacity > 128*1024*1024 then IncSize := 16*1024*1024
else if FCapacity > 8*1024*1024 then IncSize := FCapacity shr 3
else if FCapacity > 128 then IncSize := FCapacity shr 2
else if FCapacity > 8 then IncSize := 16
else IncSize := 4;
SetCapacity(FCapacity + IncSize);
Result := Self;
end;