diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:38:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:38:27 +0000 |
| commit | aada9bb5762237f333b99a2e231beb8252da0b17 (patch) | |
| tree | 47c9ebb692db65b23c7bde04163822c20f85bf97 /gcc/ada/a-convec.adb | |
| parent | 9fede021c517b4b6746b023a0e31e2311351486f (diff) | |
| download | gcc-aada9bb5762237f333b99a2e231beb8252da0b17.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-convec.adb, exp_disp.adb: Minor reformatting.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* a-exexpr-gcc.adb (GNAT_GCC_Exception_Access): Set to convention C.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178213 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-convec.adb')
| -rw-r--r-- | gcc/ada/a-convec.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index c9c022d26a4..f61809adf40 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -2176,12 +2176,10 @@ package body Ada.Containers.Vectors is return No_Element; end Next; - function Next (Object : Iterator; Position : Cursor) return Cursor - is + function Next (Object : Iterator; Position : Cursor) return Cursor is begin if Position.Index = Object.Container.Last then return No_Element; - else return (Object.Container, Position.Index + 1); end if; @@ -2255,8 +2253,7 @@ package body Ada.Containers.Vectors is return No_Element; end Previous; - function Previous (Object : Iterator; Position : Cursor) return Cursor - is + function Previous (Object : Iterator; Position : Cursor) return Cursor is begin if Position.Index > Index_Type'First then return (Object.Container, Position.Index - 1); |