[gcc r15-6203] ada: Fix indentation in record component declarations

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:9f67d3d3f4db180933d3fe402efc190c885fdbca

commit r15-6203-g9f67d3d3f4db180933d3fe402efc190c885fdbca
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Mon Dec 2 16:37:38 2024 +0100

    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:
---
 gcc/ada/exp_aggr.adb              | 6 +++---
 gcc/ada/libgnat/s-dourea.ads      | 2 +-
 gcc/ada/libgnat/s-excmac__arm.ads | 2 +-
 gcc/ada/sem_case.adb              | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 092e67c8a819..9aabd58b2a99 100644
--- 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 5112228f6877..61f974c7eefb 100644
--- 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 463191d6b426..d6792d3ca6ff 100644
--- 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 9d197870414a..b85afede98bb 100644
--- 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.