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

1 files changed, 16 insertions, 14 deletions

diff --git a/gcc/ada/a-coorse.adb b/gcc/ada/a-coorse.adb
index 2224fdf317e..b7d9d45dc03 100644
--- a/gcc/ada/a-coorse.adb
+++ b/gcc/ada/a-coorse.adb
@@ -42,16 +42,21 @@ package body Ada.Containers.Ordered_Sets is
 
    type Iterator is new
      Ordered_Set_Iterator_Interfaces.Reversible_Iterator with record
-      Container : access constant Set;
-      Node      : Node_Access;
-   end record;
+        Container : access constant Set;
+        Node      : Node_Access;
+     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;
 
    ------------------------------
    -- Access to Fields of Node --
@@ -1248,9 +1253,7 @@ package body Ada.Containers.Ordered_Sets is
       Position := Next (Position);
    end Next;
 
-   function Next  (Object : Iterator; Position : Cursor)
-   return Cursor
-   is
+   function Next (Object : Iterator; Position : Cursor) return Cursor is
       pragma Unreferenced (Object);
    begin
       return Next (Position);
@@ -1305,13 +1308,12 @@ package body Ada.Containers.Ordered_Sets is
       Position := Previous (Position);
    end Previous;
 
-   overriding function Previous (Object : Iterator; Position : Cursor)
-   return Cursor
-   is
+   function Previous (Object : Iterator; Position : Cursor) return Cursor is
       pragma Unreferenced (Object);
    begin
       return Previous (Position);
    end Previous;
+
    -------------------
    -- Query_Element --
    -------------------