From c9423ca3fa65282b0ca58d33976c150f78e24f23 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 10 Jan 2012 12:06:44 +0100 Subject: [multiple changes] 2012-01-10 Pascal Obry * prj-nmsc.adb (Check_Library_Attributes): Kill check for object/source directories for aggregate libraries. 2012-01-10 Matthew Heaney * a-cdlili.adb, a-cdlili.ads, a-cihama.adb, a-cihama.ads, a-coinve.adb, a-coinve.ads, a-ciorse.adb, a-ciorse.ads, a-coorma.adb, a-coorma.ads, a-cborma.adb, a-cborma.ads, a-cidlli.adb, a-cidlli.ads, a-cimutr.adb, a-cimutr.ads, a-cihase.adb, a-cihase.ads, a-cohama.adb, a-cohama.ads, a-coorse.adb, a-coorse.ads, a-cbhama.adb, a-cbhama.ads, a-cborse.adb, a-cborse.ads, a-comutr.adb, a-comutr.ads, a-ciorma.adb, a-cobove.adb, a-ciorma.ads, a-cobove.ads, a-convec.adb, a-convec.ads, a-cohase.adb, a-cohase.ads, a-cbdlli.adb, a-cbdlli.ads, a-cbmutr.adb, a-cbmutr.ads, a-cbhase.adb, a-cbhase.ads (Reference, Constant_Reference): Declare container parameter as aliased in/in out. Code clean ups. 2012-01-10 Bob Duff * s-os_lib.ads: Improve comment. 2012-01-10 Geert Bosch * s-gearop.adb (Forward_Eliminate): Avoid improper aliasing for complex Scalar. From-SVN: r183060 --- gcc/ada/a-comutr.ads | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'gcc/ada/a-comutr.ads') diff --git a/gcc/ada/a-comutr.ads b/gcc/ada/a-comutr.ads index 37e2eda..20a91bb 100644 --- a/gcc/ada/a-comutr.ads +++ b/gcc/ada/a-comutr.ads @@ -108,6 +108,14 @@ package Ada.Containers.Multiway_Trees is (Element : not null access Element_Type) is private with Implicit_Dereference => Element; + function Constant_Reference + (Container : aliased Tree; + Position : Cursor) return Constant_Reference_Type; + + function Reference + (Container : aliased in out Tree; + Position : Cursor) return Reference_Type; + procedure Assign (Target : in out Tree; Source : Tree); function Copy (Source : Tree) return Tree; @@ -341,7 +349,7 @@ private Prev : Tree_Node_Access; Next : Tree_Node_Access; Children : Children_Type; - Element : Element_Type; + Element : aliased Element_Type; end record; pragma Convention (C, Tree_Node_Type); @@ -445,14 +453,6 @@ private for Reference_Type'Write use Write; - function Constant_Reference - (Container : aliased Tree; - Position : Cursor) return Constant_Reference_Type; - - function Reference - (Container : aliased Tree; - Position : Cursor) return Reference_Type; - Empty_Tree : constant Tree := (Controlled with others => <>); No_Element : constant Cursor := (others => <>); -- cgit v1.1