diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 13:42:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 13:42:00 +0000 |
| commit | defcde112eae094b776169d9e2d62c17d052ae92 (patch) | |
| tree | f20f4df300d64f5600c1039d02d785c133bb1250 /gcc/ada/a-coinve.adb | |
| parent | 852b4cc2d9d0889a68adf7672a040e4451b1be1d (diff) | |
| download | gcc-defcde112eae094b776169d9e2d62c17d052ae92.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-cdlili.adb, a-cdlili.ads, a-coinve.adb, a-coinve.ads,
sem_util.adb, sem_util.ads, a-cohama.adb, a-cohama.ads, a-coorse.adb,
a-coorse.ads, aspects.ads, sem_ch8.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178232 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-coinve.adb')
| -rw-r--r-- | gcc/ada/a-coinve.adb | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/gcc/ada/a-coinve.adb b/gcc/ada/a-coinve.adb index fa90aaf31f5..d66b9ec563b 100644 --- a/gcc/ada/a-coinve.adb +++ b/gcc/ada/a-coinve.adb @@ -46,11 +46,16 @@ package body Ada.Containers.Indefinite_Vectors is end record; overriding function First (Object : Iterator) return Cursor; - overriding function Last (Object : Iterator) return Cursor; - overriding function Next (Object : Iterator; Position : Cursor) - return Cursor; - overriding function Previous (Object : Iterator; Position : Cursor) - return Cursor; + + overriding function Last (Object : Iterator) return Cursor; + + overriding function Next + (Object : Iterator; + Position : Cursor) return Cursor; + + overriding function Previous + (Object : Iterator; + Position : Cursor) return Cursor; --------- -- "&" -- @@ -2433,7 +2438,9 @@ package body Ada.Containers.Indefinite_Vectors is return It; end Iterate; - function Iterate (Container : Vector; Start : Cursor) + function Iterate + (Container : Vector; + Start : Cursor) return Vector_Iterator_Interfaces.Reversible_Iterator'class is It : constant Iterator := @@ -2584,10 +2591,6 @@ package body Ada.Containers.Indefinite_Vectors is end if; end Next; - ---------- - -- Next -- - ---------- - procedure Next (Position : in out Cursor) is begin if Position.Container = null then |