From d51f16bf41065a5b6ce6720219e5fc05788e110b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Jan 2017 13:33:05 +0000
Subject: [PATCH] lazutils: fixed TAvgLvlTree.AddAscendingSequence, when
 LastAdded gets a right child

git-svn-id: trunk@53910 -
---
 components/lazutils/avglvltree.pas | 38 ++++++++++++------------------
 1 file changed, 15 insertions(+), 23 deletions(-)

diff --git a/components/lazutils/avglvltree.pas b/components/lazutils/avglvltree.pas
index b62f48b645..47ef89df5f 100644
--- a/components/lazutils/avglvltree.pas
+++ b/components/lazutils/avglvltree.pas
@@ -867,39 +867,31 @@ function TAvgLvlTree.AddAscendingSequence(Data: Pointer;
     for i:=1 to 1000 do
       LastNode:=Tree.AddAscendingSequence(TItem.Create(i),LastNode,Successor);
 }
-var InsertPos: TAvgLvlTreeNode;
-  InsertComp: integer;
+var
+  InsertPos: TAvgLvlTreeNode;
 begin
   Result:=NodeClass.Create;
   Result.Data:=Data;
-  inc(FCount);
   if (LastAdded<>nil) and (Compare(LastAdded.Data,Data)<=0)
   and ((Successor=nil) or (Compare(Data,Successor.Data)<=0)) then begin
-    // Data is between LastAdded and Successor -> insert here
-    Result.Parent:=LastAdded;
-    LastAdded.Right:=Result;
-    NodeAdded(Result);
-    BalanceAfterInsert(Result);
-  end else if fRoot<>nil then begin
-    // find an insert position
-    InsertPos:=FindInsertPos(Data);
-    InsertComp:=Compare(Data,InsertPos.Data);
-    Result.Parent:=InsertPos;
-    if InsertComp<0 then begin
-      // insert to the left
-      InsertPos.Left:=Result;
+    // Data is between LastAdded and Successor
+    inc(FCount);
+    if LastAdded.Right=nil then begin
+      Result.Parent:=LastAdded;
+      LastAdded.Right:=Result;
     end else begin
-      // insert to the right
-      InsertPos.Right:=Result;
+      InsertPos:=LastAdded.Right;
+      while InsertPos.Left<>nil do
+        InsertPos:=InsertPos.Left;
+      Result.Parent:=InsertPos;
+      InsertPos.Left:=Result;
     end;
     NodeAdded(Result);
     BalanceAfterInsert(Result);
-    Successor:=Result.Successor;
   end else begin
-    // first node
-    fRoot:=Result;
-    Successor:=nil;
-    NodeAdded(Result);
+    // normal Add
+    Add(Result);
+    Successor:=Result.Successor;
   end;
 end;