diff options
Diffstat (limited to 'gcc/ada/a-cobove.adb')
-rw-r--r-- | gcc/ada/a-cobove.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-cobove.adb b/gcc/ada/a-cobove.adb index af9ea25e0..8ca958f0b 100644 --- a/gcc/ada/a-cobove.adb +++ b/gcc/ada/a-cobove.adb @@ -1728,9 +1728,9 @@ package body Ada.Containers.Bounded_Vectors is -- for a reverse iterator, Container.Last is the beginning. return It : constant Iterator := - (Limited_Controlled with - Container => V, - Index => No_Index) + (Limited_Controlled with + Container => V, + Index => No_Index) do B := B + 1; end return; @@ -1781,9 +1781,9 @@ package body Ada.Containers.Bounded_Vectors is -- a forward or reverse iteration. return It : constant Iterator := - (Limited_Controlled with - Container => V, - Index => Start.Index) + (Limited_Controlled with + Container => V, + Index => Start.Index) do B := B + 1; end return; @@ -2319,7 +2319,7 @@ package body Ada.Containers.Bounded_Vectors is Index : Index_Type := Index_Type'Last) return Extended_Index is Last : constant Index_Type'Base := - Index_Type'Min (Container.Last, Index); + Index_Type'Min (Container.Last, Index); begin for Indx in reverse Index_Type'First .. Last loop |