diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2023-11-30 11:58:15 +0100 |
---|---|---|
committer | Marc Poulhiès <poulhies@adacore.com> | 2023-12-19 15:27:50 +0100 |
commit | b90089402f79ef4be049001c381dd6446af437a5 (patch) | |
tree | d345cfd47e7f678208a703226d6da0cf3cd1e9df | |
parent | 8106b4476482f44f042ae313f003647a1d43b372 (diff) | |
download | gcc-b90089402f79ef4be049001c381dd6446af437a5.zip gcc-b90089402f79ef4be049001c381dd6446af437a5.tar.gz gcc-b90089402f79ef4be049001c381dd6446af437a5.tar.bz2 |
ada: Fix style and typos in comments
Code cleanup.
gcc/ada/
* exp_ch9.adb, sem_ch10.adb, sem_util.adb: Fix comments.
-rw-r--r-- | gcc/ada/exp_ch9.adb | 4 | ||||
-rw-r--r-- | gcc/ada/sem_ch10.adb | 2 | ||||
-rw-r--r-- | gcc/ada/sem_util.adb | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index cfdab11..f83c233 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -7264,7 +7264,7 @@ package body Exp_Ch9 is -- Generate: -- if K = Ada.Tags.TK_Limited_Tagged -- or else K = Ada.Tags.TK_Tagged - -- then + -- then -- Lim_Typ_Stmts -- else -- Conc_Typ_Stmts @@ -12740,7 +12740,7 @@ package body Exp_Ch9 is -- Generate: -- if K = Ada.Tags.TK_Limited_Tagged -- or else K = Ada.Tags.TK_Tagged - -- then + -- then -- Lim_Typ_Stmts -- else -- Conc_Typ_Stmts diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 7cca555..ea9bc0d 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -4529,7 +4529,7 @@ package body Sem_Ch10 is then -- If the unit is an ancestor of the current one, it is the -- case of a private limited with clause on a child unit, and - -- the compilation of one of its descendants, In that case the + -- the compilation of one of its descendants, in that case the -- limited view is errelevant. if Limited_Present (Item) then diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index f8922fe..791fa7b 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -15980,7 +15980,7 @@ package body Sem_Util is Param_Typ := Etype (Param); end if; - -- In the case where an Itype was created for a dispatchin call, the + -- In the case where an Itype was created for a dispatching call, the -- procedure call has been rewritten. The actual may be an access to -- interface type in which case it is the designated type that is the -- controlling type. |