paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* zero allocated memory for usage as dynamic type

Browse Source 
git-svn-id: trunk@5631 -
This commit is contained in:
micha 2006-12-17 22:04:07 +00:00
parent b6feb006f6
commit efd7073959
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/fgl.pp
View File

@ -249,11 +249,12 @@ end;
procedure TFPSList.SetCapacity(NewCapacity: Integer);
begin
If (NewCapacity < FCount) or (NewCapacity > MaxListSize) then
Error (SListCapacityError, NewCapacity);
if (NewCapacity < FCount) or (NewCapacity > MaxListSize) then
Error(SListCapacityError, NewCapacity);
if NewCapacity = FCapacity then
exit;
ReallocMem(FList, (NewCapacity+1) * FItemSize);
FillChar(InternalItems[FCapacity]^, (NewCapacity+1-FCapacity) * FItemSize, #0);
FCapacity := NewCapacity;
end;