ada: Fix style and typos in comments

Code cleanup.

gcc/ada/

	* exp_ch9.adb, sem_ch10.adb, sem_util.adb: Fix comments.

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index cfdab114c9bbb2835841057ae85115daeb3df6c6..f83c233a516b20dbc4f9010d67626266f97aabdd 100644 (file)
--- 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 7cca555f27670329865c73e6a371b9f0d943ea48..ea9bc0d883024614a6472d8263070dfc034786c4 100644 (file)
--- 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 f8922fed322f03f7453561dee402200f8ad32777..791fa7bc12e0665ce0d2ddf6e22f8a7163f63462 100644 (file)
--- 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.