diff options
author | Yannick Moy <moy@adacore.com> | 2021-07-15 10:40:05 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-22 15:01:43 +0000 |
commit | 81a0f4a391dd3cef102feda6c509db349b4545bd (patch) | |
tree | b310e027251e32ea5b3a083a1e579a25cff662ff /gcc/ada/exp_aggr.adb | |
parent | 064056d7b54538dbe47834e8951edf837ee91dc4 (diff) | |
download | gcc-81a0f4a391dd3cef102feda6c509db349b4545bd.zip gcc-81a0f4a391dd3cef102feda6c509db349b4545bd.tar.gz gcc-81a0f4a391dd3cef102feda6c509db349b4545bd.tar.bz2 |
[Ada] Fix obsolete comments/name referring to girder discriminants
gcc/ada/
* einfo.ads: Fix comments.
* exp_aggr.adb: Fix variable name.
* exp_util.adb: Fix comments.
* sem_ch13.adb: Fix comments.
* sem_ch3.adb: Fix comments and variable name.
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
-rw-r--r-- | gcc/ada/exp_aggr.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 88303c9..63a0666 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -8046,7 +8046,7 @@ package body Exp_Aggr is Discr : Entity_Id; Decl : Node_Id; Num_Disc : Nat := 0; - Num_Gird : Nat := 0; + Num_Stor : Nat := 0; -- Start of processing for Generate_Aggregate_For_Derived_Type @@ -8082,13 +8082,13 @@ package body Exp_Aggr is Discr := First_Stored_Discriminant (Base_Type (Typ)); while Present (Discr) loop - Num_Gird := Num_Gird + 1; + Num_Stor := Num_Stor + 1; Next_Stored_Discriminant (Discr); end loop; -- Case of more stored discriminants than new discriminants - if Num_Gird > Num_Disc then + if Num_Stor > Num_Disc then -- Create a proper subtype of the parent type, which is the -- proper implementation type for the aggregate, and convert |