2009-04-09 Pascal Obry <obry@adacore.com>

	* a-cihama.adb, a-cihama.ads, a-coinve.adb, a-coorma.ads, a-cihase.adb,
	a-cihase.ads, a-cohama.adb, a-cohama.ads, a-coorse.adb, a-coorse.ads,
	a-coormu.adb, a-coormu.ads, a-cohase.adb, a-cohase.ads: Minor
	reformatting.

2009-04-09  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch6.adb (Check_Overriding_Indicator): Do not generate warning on
	missing overriding indicator if the new declaration is not seen as
	primitive.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145804 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 6 insertions, 8 deletions

diff --git a/gcc/ada/a-cohama.ads b/gcc/ada/a-cohama.ads
index 28efde48606..d850f01ddfb 100644
--- a/gcc/ada/a-cohama.ads
+++ b/gcc/ada/a-cohama.ads
@@ -281,9 +281,8 @@ private
       Next    : Node_Access;
    end record;
 
-   package HT_Types is new Hash_Tables.Generic_Hash_Table_Types
-     (Node_Type,
-      Node_Access);
+   package HT_Types is
+     new Hash_Tables.Generic_Hash_Table_Types (Node_Type, Node_Access);
 
    type Map is new Ada.Finalization.Controlled with record
       HT : HT_Types.Hash_Table_Type;
@@ -315,11 +314,10 @@ private
    type Map_Access is access constant Map;
    for Map_Access'Storage_Size use 0;
 
-   type Cursor is
-      record
-         Container : Map_Access;
-         Node      : Node_Access;
-      end record;
+   type Cursor is record
+      Container : Map_Access;
+      Node      : Node_Access;
+   end record;
 
    procedure Read
      (Stream : not null access Root_Stream_Type'Class;