From: Piotr Trojanek <troja...@adacore.com>
Code cleanup.
gcc/ada/
* exp_ch9.adb, sem_ch10.adb, sem_util.adb: Fix comments.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/exp_ch9.adb | 4 ++--
gcc/ada/sem_ch10.adb | 2 +-
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 cfdab114c9b..f83c233a516 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 7cca555f276..ea9bc0d8830 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 f8922fed322..791fa7bc12e 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.
--
2.43.0
