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

* fix bug #9222 by Sergei Gorelkin

Browse Source 
git-svn-id: trunk@8028 -
This commit is contained in:
Almindor 2007-07-12 19:50:38 +00:00
parent 9021bbad98
commit 8fff7af149
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-xml/src/dom.pp
View File

@ -1014,8 +1014,8 @@ end;
destructor TDOMNode_WithChildren.Destroy; destructor TDOMNode_WithChildren.Destroy;
begin begin
FreeAndNil(FChildNodeTree);
FreeChildren; FreeChildren;
FreeAndNil(FChildNodeTree);
inherited Destroy; inherited Destroy;
end; end;
@ -1243,6 +1243,8 @@ procedure TDOMNode_WithChildren.FreeChildren;
var var
child, next: TDOMNode; child, next: TDOMNode;
begin begin
if Assigned(FChildNodeTree) then
FChildNodeTree.Clear;
child := FFirstChild; child := FFirstChild;
while Assigned(child) do while Assigned(child) do
begin begin