diff options
Diffstat (limited to 'gcc/ada')
-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. |