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

* Minor improvement of TFPSList.Expand

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-31 11:11:08 +02:00
parent 5c4f365be4
commit 33f6a9042d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/fgl.pp
View File

@ -680,12 +680,14 @@ var
IncSize : Longint;
begin
if FCount < FCapacity then exit;
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+IncSize>MaxListSize then
IncSize:=MaxListSize-FCapacity;
if FCapacity > 127 then
IncSize:=FCapacity shr 2
else if FCapacity > 8 then
IncSize := 16
else if FCapacity > 3 then
IncSize := 8
else
IncSize := 4;
// If we were at max capacity already, force error.
If IncSize<=0 then
IncSize:=1; // Will trigger error