diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-04-03 13:36:35 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-21 09:26:48 +0200 |
| commit | 8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9 (patch) | |
| tree | c9a6d2b0f78e0d1c2b79508f0030cc697884a70c | |
| parent | 417b6bd4783665cb3dae1569ece57e4a033cafef (diff) | |
| download | gcc-8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9.zip gcc-8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9.tar.gz gcc-8cadfeb5f6d7d15cb3d008b11105a2e67b46dbe9.tar.bz2 | |
ada: Fix layout in a list of aspects
Code cleanup; semantics is unaffected.
gcc/ada/
* aspects.ads (Nonoverridable_Aspect_Id): Fix layout.
| -rw-r--r-- | gcc/ada/aspects.ads | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/gcc/ada/aspects.ads b/gcc/ada/aspects.ads index ce393d4..3cc62de 100644 --- a/gcc/ada/aspects.ads +++ b/gcc/ada/aspects.ads @@ -237,14 +237,17 @@ package Aspects is -- Aspect_Id's excluding No_Aspect subtype Nonoverridable_Aspect_Id is Aspect_Id with - Static_Predicate => Nonoverridable_Aspect_Id in - Aspect_Default_Iterator | Aspect_Iterator_Element | - Aspect_Implicit_Dereference | Aspect_Constant_Indexing | - Aspect_Variable_Indexing | Aspect_Aggregate | - Aspect_Max_Entry_Queue_Length - | Aspect_No_Controlled_Parts - -- ??? No_Controlled_Parts not yet in Aspect_Id enumeration - ; -- see RM 13.1.1(18.7) + Static_Predicate => + Nonoverridable_Aspect_Id in Aspect_Aggregate + | Aspect_Constant_Indexing + | Aspect_Default_Iterator + | Aspect_Implicit_Dereference + | Aspect_Iterator_Element + | Aspect_Max_Entry_Queue_Length + | Aspect_No_Controlled_Parts + | Aspect_Variable_Indexing; + -- ??? No_Controlled_Parts not yet in Aspect_Id enumeration see RM + -- 13.1.1(18.7). -- The following array indicates aspects that accept 'Class |