From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 2 Dec 2024 15:37:38 +0000 (+0100)
Subject: ada: Fix indentation in record component declarations
X-Git-Tag: basepoints/gcc-16~3350
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9f67d3d3f4db180933d3fe402efc190c885fdbca;p=thirdparty%2Fgcc.git

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 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.