diff options
Diffstat (limited to 'gcc/ada/a-cihama.adb')
| -rw-r--r-- | gcc/ada/a-cihama.adb | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/gcc/ada/a-cihama.adb b/gcc/ada/a-cihama.adb index 2ea73b9..2d889cd 100644 --- a/gcc/ada/a-cihama.adb +++ b/gcc/ada/a-cihama.adb @@ -239,9 +239,8 @@ package body Ada.Containers.Indefinite_Hashed_Maps is L : Natural renames HT.Lock; begin return R : constant Constant_Reference_Type := - (Element => Position.Node.Element.all'Access, - Control => - (Controlled with Container'Unrestricted_Access)) + (Element => Position.Node.Element.all'Access, + Control => (Controlled with Container'Unrestricted_Access)) do B := B + 1; L := L + 1; @@ -271,9 +270,8 @@ package body Ada.Containers.Indefinite_Hashed_Maps is L : Natural renames HT.Lock; begin return R : constant Constant_Reference_Type := - (Element => Node.Element.all'Access, - Control => - (Controlled with Container'Unrestricted_Access)) + (Element => Node.Element.all'Access, + Control => (Controlled with Container'Unrestricted_Access)) do B := B + 1; L := L + 1; @@ -851,8 +849,7 @@ package body Ada.Containers.Indefinite_Hashed_Maps is B : Natural renames Container'Unrestricted_Access.all.HT.Busy; begin return It : constant Iterator := - (Limited_Controlled with - Container => Container'Unrestricted_Access) + (Limited_Controlled with Container => Container'Unrestricted_Access) do B := B + 1; end return; @@ -1110,8 +1107,8 @@ package body Ada.Containers.Indefinite_Hashed_Maps is L : Natural renames HT.Lock; begin return R : constant Reference_Type := - (Element => Position.Node.Element.all'Access, - Control => (Controlled with Position.Container)) + (Element => Position.Node.Element.all'Access, + Control => (Controlled with Position.Container)) do B := B + 1; L := L + 1; @@ -1141,9 +1138,8 @@ package body Ada.Containers.Indefinite_Hashed_Maps is L : Natural renames HT.Lock; begin return R : constant Reference_Type := - (Element => Node.Element.all'Access, - Control => - (Controlled with Container'Unrestricted_Access)) + (Element => Node.Element.all'Access, + Control => (Controlled with Container'Unrestricted_Access)) do B := B + 1; L := L + 1; |