[Ada] Fix miscellaneous typos

2018-09-26  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* exp_ch9.adb, layout.adb, sem_attr.adb, sem_res.adb: Fix
	miscellaneous typos.

From-SVN: r264599

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 42391f62dd54eb03af8fe46236dd6ba49758e2af..d5e4018a04a14ed172ec33156b0ed1522fea01c6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-09-26  Gary Dismukes  <dismukes@adacore.com>
+
+       * exp_ch9.adb, layout.adb, sem_attr.adb, sem_res.adb: Fix
+       miscellaneous typos.
+
 2018-09-26  Jerome Lambourg  <lambourg@adacore.com>
 
        * vxlink.adb: Kill a CodePeer warning.

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index 4470c4e98545284ea9c22779e0acc3cbffc0d8c3..a62ba2dea3bd41f284177a089b8ecaf12a45e817 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -481,7 +481,7 @@ package body Exp_Ch9 is
    --  to be E. Bod is either a block or a subprogram body.  Used after
    --  expanding various kinds of entry bodies into their corresponding
    --  constructs. This is needed during unnesting to determine whether a
-   --  body geenrated for an entry or an accept alternative includes uplevel
+   --  body generated for an entry or an accept alternative includes uplevel
    --  references.
 
    function Trivial_Accept_OK return Boolean;
@@ -14854,7 +14854,7 @@ package body Exp_Ch9 is
       function Reset_Scope (N : Node_Id) return Traverse_Result;
       --  Temporaries may have been declared during expansion of the procedure
       --  created for an entry body or an accept alternative. Indicate that
-      --  their scope is the new body, to unsure proper generation of uplevel
+      --  their scope is the new body, to ensure proper generation of uplevel
       --  references where needed during unnesting.
 
       procedure Reset_Scopes is new Traverse_Proc (Reset_Scope);

diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb
index a7b24ab43c8311e258811a67ed3524195f73f7ee..91640c15f86d360f2abd91dacbdb6cfdfe769a24 100644 (file)
--- a/gcc/ada/layout.adb
+++ b/gcc/ada/layout.adb
@@ -328,7 +328,7 @@ package body Layout is
          --  If unnesting subprograms, subprogram access types contain the
          --  address of both the subprogram and an activation record. But if we
          --  set that, we'll get a warning on different unchecked conversion
-         --  sizes in the RTS. So leave unset ub that case.
+         --  sizes in the RTS. So leave unset in that case.
 
          elsif Unnest_Subprogram_Mode
            and then Is_Access_Subprogram_Type (E)

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 96eb48824d1162de99eb220a52f9d228ada45bf0..715ec95455243a7e10ba4e332426693d596c886e 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -11249,9 +11249,9 @@ package body Sem_Attr is
                      --  The above sets the Scope of the flag entity to the
                      --  current scope, in which the attribute appears, but
                      --  the flag declaration has been inserted after that
-                     --  of Subp_Id, so the scope of the flag the same as
+                     --  of Subp_Id, so the scope of the flag is the same as
                      --  that of Subp_Id. This is relevant when unnesting,
-                     --  whereh processing depends on correct scope settingl
+                     --  where processing depends on correct scope setting.
 
                      Set_Scope (Flag_Id, Scop);
                   end if;

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 2002b75876f7cb8ce56f0b63d269b8687ed12191..5354d81630b71c75386b90586df4af782fecff01 100644 (file)
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -6067,7 +6067,7 @@ package body Sem_Res is
       --  (including the body of another expression function) which would
       --  place the freeze node in the wrong scope. An expression function
       --  is frozen in the usual fashion, by the appearance of a real body,
-      --  or at the end of a declarative part. However an implcit call to
+      --  or at the end of a declarative part. However an implicit call to
       --  an expression function may appear when it is part of a default
       --  expression in a call to an initialiation procedure, and must be
       --  frozen now, even if the body is inserted at a later point.