mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 22:19:32 +02:00
parent
ac3a97a649
commit
68766018ea
@ -236,7 +236,7 @@ const
|
||||
cSizeSmall = 1*1024*1024;
|
||||
cSizeBig = 256*1024*1024;
|
||||
var
|
||||
i,OldEnd,
|
||||
OldEnd,
|
||||
DataSize,CurLast,EmptyElems,Elems:SizeUInt;
|
||||
begin
|
||||
OldEnd:=FCapacity;
|
||||
|
Loading…
Reference in New Issue
Block a user