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

* Fixed mem-leak, FContentProducers was re-initialized during the inherited destroy

Browse Source 
git-svn-id: trunk@16825 -
This commit is contained in:
joost 2011-01-28 10:55:35 +00:00
parent 9191eb35a9
commit 012ef5218b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/webpage.pp
View File

@ -264,9 +264,9 @@ end;
destructor TWebPage.Destroy; destructor TWebPage.Destroy;
begin begin
inherited Destroy;
if assigned(FContentProducers) then if assigned(FContentProducers) then
FreeAndNil(FContentProducers); FreeAndNil(FContentProducers);
inherited Destroy;
end; end;
function TWebPage.ContentProducerCount: integer; function TWebPage.ContentProducerCount: integer;