diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-12-02 16:37:38 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-12-13 09:36:02 +0100 |
| commit | 9f67d3d3f4db180933d3fe402efc190c885fdbca (patch) | |
| tree | eb610e4429ab3c5a09cb3259a3b39e0733f2010c /gcc | |
| parent | 42edc83709d1a03ba266d73e8933e3c041f135cc (diff) | |
| download | gcc-9f67d3d3f4db180933d3fe402efc190c885fdbca.zip gcc-9f67d3d3f4db180933d3fe402efc190c885fdbca.tar.gz gcc-9f67d3d3f4db180933d3fe402efc190c885fdbca.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-dourea.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-excmac__arm.ads | 2 | ||||
| -rw-r--r-- | 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 092e67c..9aabd58 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 5112228..61f974c 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 463191d..d6792d3 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 9d19787..b85afed 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. |