paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 15:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix memory leak of TFPSList.Clear()

Browse Source 
git-svn-id: trunk@8431 -
This commit is contained in:
tom_at_work 2007-09-11 21:43:27 +00:00
parent b984b2227f
commit f88c5e1324
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/fgl.pp
View File

@ -261,8 +261,8 @@ begin
Error(SListCapacityError, NewCapacity); Error(SListCapacityError, NewCapacity);
if NewCapacity = FCapacity then if NewCapacity = FCapacity then
exit; exit;
ReallocMem(FList, (NewCapacity+1) * FItemSize); ReallocMem(FList, NewCapacity * FItemSize);
FillChar(InternalItems[FCapacity]^, (NewCapacity+1-FCapacity) * FItemSize, #0); FillChar(InternalItems[FCapacity]^, (NewCapacity-FCapacity) * FItemSize, #0);
FCapacity := NewCapacity; FCapacity := NewCapacity;
end; end;