[COMMITTED] ada: Fix style and typos in comments

[COMMITTED] ada: Fix style and typos in comments

[Marc Poulhiès]

From: Piotr Trojanek <trojanek@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