paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: TAvgLvlTree: made FreeAndDelete virtual safe

Browse Source 
git-svn-id: trunk@54537 -
This commit is contained in:
mattias 2017-04-06 09:27:12 +00:00
parent efd6a6efc5
commit 7fa04aed29
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/laz_avl_tree.pp
View File

@ -666,7 +666,7 @@ begin
OldParent:=ANode; OldParent:=ANode;
while OldParent.Parent<>nil do OldParent:=OldParent.Parent; while OldParent.Parent<>nil do OldParent:=OldParent.Parent;
if OldParent<>Root then if OldParent<>Root then
raise Exception,Create('TAVLTree.Delete'); // not my node raise Exception.Create('TAVLTree.Delete'); // not my node
{$ENDIF} {$ENDIF}
if (ANode.Left<>nil) and (ANode.Right<>nil) then begin if (ANode.Left<>nil) and (ANode.Right<>nil) then begin
// ANode has both: Left and Right // ANode has both: Left and Right