From 11d3e6af3ec6ff1b6128ea3fb2e0a6c88c590169 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 7 Dec 2007 16:25:27 +0000
Subject: [PATCH] IDE: fixed mem leak: freeing DefaultPackage  from Paul

git-svn-id: trunk@13208 -
---
 packager/packagesystem.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas
index 098a25f4ea..2a2d7338f4 100644
--- a/packager/packagesystem.pas
+++ b/packager/packagesystem.pas
@@ -321,7 +321,7 @@ type
     property CodeToolsPackage: TLazPackage read FCodeToolsPackage;
     property IDEIntfPackage: TLazPackage read FIDEIntfPackage;
     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 OnBeginUpdate: TNotifyEvent read FOnBeginUpdate write FOnBeginUpdate;
     property OnChangePackageName: TPkgChangeNameEvent read FOnChangePackageName
@@ -514,9 +514,10 @@ begin
   if OnGetAllRequiredPackages=@GetAllRequiredPackages then
     OnGetAllRequiredPackages:=nil;
   Clear;
-  FLazarusBasePackages.Free;
-  FItems.Free;
-  FTree.Free;
+  FreeAndNil(FDefaultPackage);
+  FreeAndNil(FLazarusBasePackages);
+  FreeAndNil(FItems);
+  FreeAndNil(FTree);
   inherited Destroy;
 end;