einfo.ads, einfo.adb: Minor reformatting.

2010-10-18  Robert Dewar  <dewar@adacore.com>

	* einfo.ads, einfo.adb: Minor reformatting.

From-SVN: r165631

1 files changed, 12 insertions, 12 deletions

diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb
index 87c9edc84f5..560b152c5a2 100644
--- a/gcc/ada/einfo.adb
+++ b/gcc/ada/einfo.adb
@@ -1545,18 +1545,18 @@ package body Einfo is
       return Node4 (Id);
    end Homonym;
 
-   function Interfaces (Id : E) return L is
-   begin
-      pragma Assert (Is_Record_Type (Id));
-      return Elist25 (Id);
-   end Interfaces;
-
    function Interface_Alias (Id : E) return E is
    begin
       pragma Assert (Is_Subprogram (Id));
       return Node25 (Id);
    end Interface_Alias;
 
+   function Interfaces (Id : E) return L is
+   begin
+      pragma Assert (Is_Record_Type (Id));
+      return Elist25 (Id);
+   end Interfaces;
+
    function In_Package_Body (Id : E) return B is
    begin
       return Flag48 (Id);
@@ -3970,12 +3970,6 @@ package body Einfo is
       Set_Node4 (Id, V);
    end Set_Homonym;
 
-   procedure Set_Interfaces (Id : E; V : L) is
-   begin
-      pragma Assert (Is_Record_Type (Id));
-      Set_Elist25 (Id, V);
-   end Set_Interfaces;
-
    procedure Set_Interface_Alias (Id : E; V : E) is
    begin
       pragma Assert
@@ -3985,6 +3979,12 @@ package body Einfo is
       Set_Node25 (Id, V);
    end Set_Interface_Alias;
 
+   procedure Set_Interfaces (Id : E; V : L) is
+   begin
+      pragma Assert (Is_Record_Type (Id));
+      Set_Elist25 (Id, V);
+   end Set_Interfaces;
+
    procedure Set_In_Package_Body (Id : E; V : B := True) is
    begin
       Set_Flag48 (Id, V);