From ff2ae8d0d27a31081032a87a357ee5e2d0cf84de Mon Sep 17 00:00:00 2001
From: joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 28 Jan 2011 09:06:46 +0000
Subject:  * Fixed mem-leak

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16824 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-web/src/base/webpage.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'packages/fcl-web/src')

diff --git a/packages/fcl-web/src/base/webpage.pp b/packages/fcl-web/src/base/webpage.pp
index a80a1b0d76..520e6f0819 100644
--- a/packages/fcl-web/src/base/webpage.pp
+++ b/packages/fcl-web/src/base/webpage.pp
@@ -84,6 +84,7 @@ type
     procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
     property ContentProducerList: TFPList read GetContentProducerList;
   public
+    destructor Destroy; override;
     function ContentProducerCount: integer;
 
     function ProduceContent : string;
@@ -261,6 +262,13 @@ begin
       Proc(ContentProducers[i]);
 end;
 
+destructor TWebPage.Destroy;
+begin
+  if assigned(FContentProducers) then
+    FreeAndNil(FContentProducers);
+  inherited Destroy;
+end;
+
 function TWebPage.ContentProducerCount: integer;
 begin
   if assigned(FContentProducers) then
-- 
cgit v1.2.1