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

fixed mem leak

Browse Source 
git-svn-id: trunk@4903 -
This commit is contained in:
mattias 2003-12-18 15:01:24 +00:00
parent 2fff46c571
commit 8e856f0847
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/definetemplates.pas
View File

@ -1559,7 +1559,10 @@ end;
destructor TDirectoryDefines.Destroy;
begin
Values.Free;
UnitLinksTree.Free;
if UnitLinksTree<>nil then begin
UnitLinksTree.FreeAndClear;
UnitLinksTree.Free;
end;
inherited Destroy;
end;

6
ide/exttooleditdlg.pas
View File

@ -25,8 +25,8 @@
external tool. (= Programfilename and parameters)
All TExternalToolOptions are stored in a TExternalToolList
(see exttooldialog.pas).
And provides TExternalToolOptionDlg which is a dialog for editing a
TExternalToolOptions;
And this unit provides TExternalToolOptionDlg which is a dialog for editing
a TExternalToolOptions;
}
unit ExtToolEditDlg;
@ -54,7 +54,7 @@ const ExternalToolOptionsFormat = '1.0';
type
{
the storage object for a single external tool
TExternalToolOptions - the storage object for a single external tool
}
TExternalToolOptions = class
private