ada: Fix indentation in record component declarations

Code cleanup.

gcc/ada/ChangeLog:

	* exp_aggr.adb (Case_Bounds): Fix indentation.
	* sem_case.adb (Choice_Bounds): Likewise.
	* libgnat/s-dourea.ads (Duuble_T): Likewise.
	* libgnat/s-excmac__arm.ads (Cleanup_Cache_Type): Likewise.

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 092e67c8a819a9fc048873cc5a574485230e94ca..9aabd58b2a991ca8b2bfbb1601b06204347aa33a 100644 (file)
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -79,9 +79,9 @@ with Warnsw;         use Warnsw;
 package body Exp_Aggr is
 
    type Case_Bounds is record
-     Choice_Lo   : Node_Id;
-     Choice_Hi   : Node_Id;
-     Choice_Node : Node_Id;
+      Choice_Lo   : Node_Id;
+      Choice_Hi   : Node_Id;
+      Choice_Node : Node_Id;
    end record;
 
    type Case_Table_Type is array (Nat range <>) of Case_Bounds;

diff --git a/gcc/ada/libgnat/s-dourea.ads b/gcc/ada/libgnat/s-dourea.ads
index 5112228f68770577fc02222953bdbfb1faac6b9d..61f974c7eefb52d6aa83f7a20ee830268edb2c57 100644 (file)
--- a/gcc/ada/libgnat/s-dourea.ads
+++ b/gcc/ada/libgnat/s-dourea.ads
@@ -43,7 +43,7 @@ package System.Double_Real is
    pragma Pure;
 
    type Double_T is record
-     Hi, Lo : Num;
+      Hi, Lo : Num;
    end record;
 
    function To_Double (N : Num) return Double_T is ((Hi => N, Lo => 0.0));

diff --git a/gcc/ada/libgnat/s-excmac__arm.ads b/gcc/ada/libgnat/s-excmac__arm.ads
index 463191d6b426622c94b2bdfa330de04494918d6b..d6792d3ca6ff84ade5495b7245179e8dff766dc3 100644 (file)
--- a/gcc/ada/libgnat/s-excmac__arm.ads
+++ b/gcc/ada/libgnat/s-excmac__arm.ads
@@ -114,7 +114,7 @@ package System.Exceptions.Machine is
    end record;
 
    type Cleanup_Cache_Type is record
-     Bitpattern : uint32_t_array (0 .. 3);
+      Bitpattern : uint32_t_array (0 .. 3);
    end record;
 
    type Pr_Cache_Type is record

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 9d197870414a35b06e350de36a245fec83a501f6..b85afede98bbe57951d08fecb0d462cdd07443ae 100644 (file)
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -58,9 +58,9 @@ with GNAT.Sets;
 package body Sem_Case is
 
    type Choice_Bounds is record
-     Lo   : Node_Id;
-     Hi   : Node_Id;
-     Node : Node_Id;
+      Lo   : Node_Id;
+      Hi   : Node_Id;
+      Node : Node_Id;
    end record;
    --  Represent one choice bounds entry with Lo and Hi values, Node points
    --  to the choice node itself.