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

IDE: fixed mem leak: freeing DefaultPackage from Paul

Browse Source 
git-svn-id: trunk@13208 -
This commit is contained in:
mattias 2007-12-07 16:25:27 +00:00
parent 5d3b9d1495
commit 11d3e6af3e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packagesystem.pas
View File

@ -321,7 +321,7 @@ type
property CodeToolsPackage: TLazPackage read FCodeToolsPackage; property CodeToolsPackage: TLazPackage read FCodeToolsPackage;
property IDEIntfPackage: TLazPackage read FIDEIntfPackage; property IDEIntfPackage: TLazPackage read FIDEIntfPackage;
property LazarusBasePackages: TFPList read FLazarusBasePackages; property LazarusBasePackages: TFPList read FLazarusBasePackages;
property DefaultPackage: TLazPackage read FDefaultPackage; property DefaultPackage: TLazPackage read FDefaultPackage;// fall back package for buggy/obsoleted stuff
property OnAddPackage: TPkgAddedEvent read FOnAddPackage write FOnAddPackage; property OnAddPackage: TPkgAddedEvent read FOnAddPackage write FOnAddPackage;
property OnBeginUpdate: TNotifyEvent read FOnBeginUpdate write FOnBeginUpdate; property OnBeginUpdate: TNotifyEvent read FOnBeginUpdate write FOnBeginUpdate;
property OnChangePackageName: TPkgChangeNameEvent read FOnChangePackageName property OnChangePackageName: TPkgChangeNameEvent read FOnChangePackageName
@ -514,9 +514,10 @@ begin
if OnGetAllRequiredPackages=@GetAllRequiredPackages then if OnGetAllRequiredPackages=@GetAllRequiredPackages then
OnGetAllRequiredPackages:=nil; OnGetAllRequiredPackages:=nil;
Clear; Clear;
FLazarusBasePackages.Free; FreeAndNil(FDefaultPackage);
FItems.Free; FreeAndNil(FLazarusBasePackages);
FTree.Free; FreeAndNil(FItems);
FreeAndNil(FTree);
inherited Destroy; inherited Destroy;
end; end;