From d11cb7a3aa0a3ee523c537f672a970e72a300315 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 30 Jul 2014 09:59:29 +0000 Subject: 2014-07-30 Hristian Kirtchev * a-cbmutr.adb (Insert_Child): Use local variable First to keep track of the initial element's index within the tree. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213235 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-cbmutr.adb | 20 ++++++++++---------- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 14891b76a4a..c3d1b62e0dd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2014-07-30 Hristian Kirtchev + + * a-cbmutr.adb (Insert_Child): Use local variable First to keep + track of the initial element's index within the tree. + 2014-07-29 Hristian Kirtchev * a-cbmutr.adb (Allocate_Node): Remove the two parameter version. diff --git a/gcc/ada/a-cbmutr.adb b/gcc/ada/a-cbmutr.adb index c8120036cb5..1745528d93a 100644 --- a/gcc/ada/a-cbmutr.adb +++ b/gcc/ada/a-cbmutr.adb @@ -1498,6 +1498,7 @@ package body Ada.Containers.Bounded_Multiway_Trees is Count : Count_Type := 1) is Nodes : Tree_Node_Array renames Container.Nodes; + First : Count_Type; Last : Count_Type; begin @@ -1538,10 +1539,10 @@ package body Ada.Containers.Bounded_Multiway_Trees is Initialize_Root (Container); end if; - Allocate_Node (Container, New_Item, Position.Node); - Nodes (Position.Node).Parent := Parent.Node; + Allocate_Node (Container, New_Item, First); + Nodes (First).Parent := Parent.Node; - Last := Position.Node; + Last := First; for J in Count_Type'(2) .. Count loop Allocate_Node (Container, New_Item, Nodes (Last).Next); Nodes (Nodes (Last).Next).Parent := Parent.Node; @@ -1552,14 +1553,14 @@ package body Ada.Containers.Bounded_Multiway_Trees is Insert_Subtree_List (Container => Container, - First => Position.Node, + First => First, Last => Last, Parent => Parent.Node, Before => Before.Node); Container.Count := Container.Count + Count; - Position.Container := Parent.Container; + Position := Cursor'(Parent.Container, First); end Insert_Child; procedure Insert_Child @@ -1621,11 +1622,10 @@ package body Ada.Containers.Bounded_Multiway_Trees is -- initialization, so insert the specified number of possibly -- initialized elements at the given position. - Allocate_Node (Container, New_Item, Position.Node); - First := Position.Node; - Nodes (Position.Node).Parent := Parent.Node; + Allocate_Node (Container, New_Item, First); + Nodes (First).Parent := Parent.Node; - Last := Position.Node; + Last := First; for J in Count_Type'(2) .. Count loop Allocate_Node (Container, New_Item, Nodes (Last).Next); Nodes (Nodes (Last).Next).Parent := Parent.Node; @@ -1636,7 +1636,7 @@ package body Ada.Containers.Bounded_Multiway_Trees is Insert_Subtree_List (Container => Container, - First => Position.Node, + First => First, Last => Last, Parent => Parent.Node, Before => Before.Node); -- cgit v1.2.1