diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-08-23 13:34:22 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-04 08:45:09 +0000 |
commit | 8f721245b4870dfe79a769b3bd0100155d4df7c2 (patch) | |
tree | 491d487a8f6b107f23615a268ebc5916839af569 /gcc/ada | |
parent | 448a20ee501f177aff829804bce51487b20efcfb (diff) | |
download | gcc-8f721245b4870dfe79a769b3bd0100155d4df7c2.zip gcc-8f721245b4870dfe79a769b3bd0100155d4df7c2.tar.gz gcc-8f721245b4870dfe79a769b3bd0100155d4df7c2.tar.bz2 |
[Ada] Fix comment about expansion of slices
gcc/ada/
* checks.adb (Selected_Range_Checks): Fix style.
* exp_ch4.adb (Expand_N_Slice): Fix style and comment.
* sem_res.adb (Resolve_Indexed_Component): Fix style.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/checks.adb | 2 | ||||
-rw-r--r-- | gcc/ada/exp_ch4.adb | 6 | ||||
-rw-r--r-- | gcc/ada/sem_res.adb | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 3b61208..a58a495 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -10400,7 +10400,7 @@ package body Checks is Exptyp : Entity_Id; Cond : Node_Id := Empty; Do_Access : Boolean := False; - Wnode : Node_Id := Warn_Node; + Wnode : Node_Id := Warn_Node; Ret_Result : Check_Result := (Empty, Empty); Num_Checks : Natural := 0; diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index a0ce8fd..0e0d276 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -11546,7 +11546,7 @@ package body Exp_Ch4 is then Par := Parent (Par); - -- Any other case is not what we are looking for + -- Any other case is not what we are looking for else return False; @@ -11582,7 +11582,7 @@ package body Exp_Ch4 is -- Local variables - Pref : constant Node_Id := Prefix (N); + Pref : constant Node_Id := Prefix (N); -- Start of processing for Expand_N_Slice @@ -11608,7 +11608,7 @@ package body Exp_Ch4 is -- situation correctly in the assignment statement expansion). -- 2. Prefix of indexed component (the slide is optimized away in this - -- case, see the start of Expand_N_Slice.) + -- case, see the start of Expand_N_Indexed_Component.) -- 3. Object renaming declaration, since we want the name of the -- slice, not the value. diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 4dc3827..e692400 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -9253,7 +9253,7 @@ package body Sem_Res is ------------------------------- procedure Resolve_Indexed_Component (N : Node_Id; Typ : Entity_Id) is - Name : constant Node_Id := Prefix (N); + Name : constant Node_Id := Prefix (N); Expr : Node_Id; Array_Type : Entity_Id := Empty; -- to prevent junk warning Index : Node_Id; |