diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-12-05 17:38:43 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-01-03 16:39:14 +0100 |
| commit | 5a843616379b1c02d6702ac6121c576bd05f4209 (patch) | |
| tree | 55e87a17924a09e057d357d42c5cd8d453def366 /gcc/ada/exp_ch3.adb | |
| parent | c20458a12d21a93f4ad5596f64545d6142a7d2dc (diff) | |
| download | gcc-5a843616379b1c02d6702ac6121c576bd05f4209.zip gcc-5a843616379b1c02d6702ac6121c576bd05f4209.tar.gz gcc-5a843616379b1c02d6702ac6121c576bd05f4209.tar.bz2 | |
ada: Rely on default parameter when making component definition nodes
When calling Make_Component_Definition we can rely on the default value of
parameter Aliased_Present being False. This makes code cleaner and consistent
with relying on the default value of other parameters of this routine, e.g.
Null_Exclusion_Present.
Code cleanup; semantics is unaffected.
gcc/ada/ChangeLog:
* exp_ch3.adb, exp_ch9.adb, exp_dist.adb, exp_imgv.adb, exp_util.adb,
sem_dist.adb: Remove explicit actual parameter Aliased_Present equal
False; tune comments and whitespace.
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index a68b4f1..b69da39 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -5687,7 +5687,6 @@ package body Exp_Ch3 is Component_Definition => Make_Component_Definition (Loc, - Aliased_Present => False, Subtype_Indication => New_Occurrence_Of (Typ, Loc))), Expression => @@ -9318,7 +9317,6 @@ package body Exp_Ch3 is Defining_Identifier => Parent_N, Component_Definition => Make_Component_Definition (Loc, - Aliased_Present => False, Subtype_Indication => New_Occurrence_Of (Par_Subtype, Loc))); if Null_Present (Rec_Ext_Part) then @@ -9376,7 +9374,6 @@ package body Exp_Ch3 is Defining_Identifier => First_Tag_Component (T), Component_Definition => Make_Component_Definition (Sloc_N, - Aliased_Present => False, Subtype_Indication => New_Occurrence_Of (RTE (RE_Tag), Sloc_N))); if Null_Present (Comp_List) |