paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 17:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LeakView: fix double free crash. Introduced in r61711 #01fb06cf22 by using TFPGObjectList which does auto free objects

Browse Source 
git-svn-id: trunk@61808 -
This commit is contained in:
martin 2019-09-02 13:01:37 +00:00
parent 4e7c7e1842
commit e948c7b47a
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/leakview/heaptrcview.pas
View File

@ -304,8 +304,6 @@ procedure THeapTrcViewForm.ClearItems;
var var
i : integer; i : integer;
begin begin
for i := 0 to fItems.Count - 1 do
TObject(fItems[i]).Free;
fItems.Clear; fItems.Clear;
end; end;