From bd4941dedb5d9d886e98c5826712eade0475648b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 4 Nov 2016 15:55:21 +0100
Subject: [PATCH] fix a leak

---
 src/ce_gdb.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index b01a884a..6827c2c8 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -230,12 +230,12 @@ type
   // allow to retrieve the breakpoints even if source is not openened.
   TPersistentBreakPoints = class(TWritableLfmTextComponent)
   strict private
-    fItems: TOwnedCollection;
-    procedure setItems(value: TOwnedCollection);
+    fItems: TCollection;
+    procedure setItems(value: TCollection);
     function getItem(index: integer): TPersistentBreakPoint;
     function find(const fname: string; line: integer; kind: TBreakPointKind): boolean;
   published
-    property items: TOwnedCollection read fItems write setItems;
+    property items: TCollection read fItems write setItems;
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -637,7 +637,7 @@ var
   fname: string;
 begin
   Inherited;
-  fItems := TOwnedCollection.Create(self, TPersistentBreakPoint);
+  fItems := TCollection.Create(TPersistentBreakPoint);
   fname := getCoeditDocPath + bpFname;
   if fname.fileExists then
     loadFromFile(fname);
@@ -647,10 +647,11 @@ destructor TPersistentBreakPoints.destroy;
 begin
   if fItems.Count > 0 then
     saveToFile(getCoeditDocPath + bpFname);
+  fItems.Free;
   inherited;
 end;
 
-procedure TPersistentBreakPoints.setItems(value: TOwnedCollection);
+procedure TPersistentBreakPoints.setItems(value: TCollection);
 begin
   fItems.Assign(value);
 end;