diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-27 15:36:36 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:34 +0000 |
| commit | 8582e5d07eabd78d7f73f3717993fe7b55dc7fc4 (patch) | |
| tree | 2f33b652c5ff12dfe5ddee589d4d16d0a7c0701c /gcc | |
| parent | 4375ee57b1587b85e46a10d1f615f66fab403487 (diff) | |
| download | gcc-8582e5d07eabd78d7f73f3717993fe7b55dc7fc4.zip gcc-8582e5d07eabd78d7f73f3717993fe7b55dc7fc4.tar.gz gcc-8582e5d07eabd78d7f73f3717993fe7b55dc7fc4.tar.bz2 | |
[Ada] Minor style fixes in Resolve_Aspect_Aggregate
gcc/ada/
* sem_ch13.adb (Resolve_Aspect_Aggregate): Move comments after
specs; fix typo in header box; cleanup whitespace.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index db6a4a4..469177c 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -15692,18 +15692,17 @@ package body Sem_Ch13 is ------------------------------ procedure Resolve_Aspect_Aggregate - (Typ : Entity_Id; + (Typ : Entity_Id; Expr : Node_Id) is + function Valid_Empty (E : Entity_Id) return Boolean; + function Valid_Add_Named (E : Entity_Id) return Boolean; + function Valid_Add_Unnamed (E : Entity_Id) return Boolean; + function Valid_New_Indexed (E : Entity_Id) return Boolean; + function Valid_Assign_Indexed (E : Entity_Id) return Boolean; -- Predicates that establish the legality of each possible operation in -- an Aggregate aspect. - function Valid_Empty (E : Entity_Id) return Boolean; - function Valid_Add_Named (E : Entity_Id) return Boolean; - function Valid_Add_Unnamed (E : Entity_Id) return Boolean; - function Valid_New_Indexed (E : Entity_Id) return Boolean; - function Valid_Assign_Indexed (E : Entity_Id) return Boolean; - generic with function Pred (Id : Node_Id) return Boolean; procedure Resolve_Operation (Subp_Id : Node_Id); @@ -15726,7 +15725,7 @@ package body Sem_Ch13 is end Valid_Assign_Indexed; ----------------- - -- Valid_Emoty -- + -- Valid_Empty -- ----------------- function Valid_Empty (E : Entity_Id) return Boolean is @@ -15751,7 +15750,7 @@ package body Sem_Ch13 is -- Valid_Add_Named -- --------------------- - function Valid_Add_Named (E : Entity_Id) return Boolean is + function Valid_Add_Named (E : Entity_Id) return Boolean is F2, F3 : Entity_Id; begin if Ekind (E) = E_Procedure @@ -15850,6 +15849,9 @@ package body Sem_Ch13 is procedure Resolve_Assign_Indexed is new Resolve_Operation (Valid_Assign_Indexed); + + -- Start of processing for Resolve_Aspect_Aggregate + begin Assoc := First (Component_Associations (Expr)); |