paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

avglvltree: fix DisposeNode for nil Node. Issue #32189

Browse Source 
git-svn-id: trunk@55561 -
This commit is contained in:
ondrej 2017-07-23 15:10:02 +00:00
parent 818462b741
commit 11c15e3bf0
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/avglvltree.pas
View File

@ -401,7 +401,7 @@ end;
procedure TAvgLvlTree.DisposeNode(aNode: TAVLTreeNode);
begin
if FOwnsObjects then
if FOwnsObjects and Assigned(aNode) then
begin
TObject(aNode.Data).Free;
aNode.Data := nil;

9
components/lazutils/laz_avl_tree.pp
View File

@ -624,16 +624,15 @@ procedure TAVLTree.Clear;
procedure DeleteNode(ANode: TAVLTreeNode);
begin
if ANode<>nil then begin
if ANode.Left<>nil then DeleteNode(ANode.Left);
if ANode.Right<>nil then DeleteNode(ANode.Right);
end;
if ANode.Left<>nil then DeleteNode(ANode.Left);
if ANode.Right<>nil then DeleteNode(ANode.Right);
DisposeNode(ANode);
end;
// Clear
begin
DeleteNode(Root);
if Root<>nil then
DeleteNode(Root);
fRoot:=nil;
FCount:=0;
end;