From 3b64348c14b899e585b7c22da54e4a6a8c17ca76 Mon Sep 17 00:00:00 2001
From: joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 28 Jan 2011 10:55:35 +0000
Subject:  * Fixed mem-leak, FContentProducers was re-initialized during the
 inherited destroy

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

(limited to 'packages/fcl-web')

diff --git a/packages/fcl-web/src/base/webpage.pp b/packages/fcl-web/src/base/webpage.pp
index 520e6f0819..5e5c1bb977 100644
--- a/packages/fcl-web/src/base/webpage.pp
+++ b/packages/fcl-web/src/base/webpage.pp
@@ -264,9 +264,9 @@ end;
 
 destructor TWebPage.Destroy;
 begin
+  inherited Destroy;
   if assigned(FContentProducers) then
     FreeAndNil(FContentProducers);
-  inherited Destroy;
 end;
 
 function TWebPage.ContentProducerCount: integer;
-- 
cgit v1.2.1