[Ada] Various minor typo fixes

2019-10-10  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* exp_ch4.adb, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
	sem_ch6.adb, sem_prag.adb, sem_util.adb, sem_util.ads: Minor
	typo fixes.

From-SVN: r276832

9 files changed, 22 insertions, 21 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 24c831e..adc61c4 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,4 +1,5 @@
-2019-10-10  Ed Schonberg  <schonberg@adacore.com>
+2019-10-10  Gary Dismukes  <dismukes@adacore.com>
 
-	* sem_warn.adb (Warn_On_Useless_Assignment): Do not warn if the
-	second assignment is at the same source position as the first.
\ No newline at end of file
+	* exp_ch4.adb, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
+	sem_ch6.adb, sem_prag.adb, sem_util.adb, sem_util.ads: Minor
+	typo fixes.
\ No newline at end of file
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 82145b4..158dcb5 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -9577,9 +9577,9 @@ package body Exp_Ch4 is
       Typ : constant Entity_Id := Etype (Left_Opnd (N));
 
    begin
-      --  Case of elementary type with standard operator.  But if
-      --  unnesting, handle elementary types whose Equivalent_Types are
-      --  records because there may be padding or undefined fields.
+      --  Case of elementary type with standard operator. But if unnesting,
+      --  handle elementary types whose Equivalent_Types are records because
+      --  there may be padding or undefined fields.
 
       if Is_Elementary_Type (Typ)
         and then Sloc (Entity (N)) = Standard_Location
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb
index 780fec9..833df88 100644
--- a/gcc/ada/sem_cat.adb
+++ b/gcc/ada/sem_cat.adb
@@ -721,11 +721,11 @@ package body Sem_Cat is
       --  The purpose is to set categorization flags before analyzing the
       --  unit itself, so as to diagnose violations of categorization as
       --  we process each declaration, even though the pragma appears after
-      --  the unit. This processing is only needsd if compilation unit
-      --  pragmas are present.
-      --  Note: this code may be incorrect in the unlikely case a child
-      --  genericc unit is instantiated as a child of its (non-generic)
-      --  parent, so that generic and insstance are siblings,
+      --  the unit. This processing is only needed if compilation unit pragmas
+      --  are present.
+      --  Note: This code may be incorrect in the unlikely case a child generic
+      --  unit is instantiated as a child of its (nongeneric) parent, so that
+      --  generic and instance are siblings.
 
       if Nkind (P) /= N_Compilation_Unit
          or else No (First (Pragmas_After (Aux_Decls_Node (P))))
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index d9fa255..8c3559f 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -2927,7 +2927,7 @@ package body Sem_Ch12 is
       Set_Inner_Instances (Formal, New_Elmt_List);
 
       --  It is unclear that any aspects can apply to a formal package
-      --  declaration, given that they look like a hidden comformance
+      --  declaration, given that they look like a hidden conformance
       --  requirement on the corresponding actual. However, Abstract_State
       --  must be treated specially because it generates declarations that
       --  must appear before other declarations in the specification and
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 6a02192..b12f69b 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -13456,8 +13456,8 @@ package body Sem_Ch3 is
             --  After expansion of discriminated task types, the value
             --  of the discriminant may be converted to a run-time type
             --  for restricted run-times. Propagate the value of the
-            --  discriminant ss well, so that e.g. the secondary stack
-            --  component has a static constraint. Necessry for LLVM.
+            --  discriminant as well, so that e.g. the secondary stack
+            --  component has a static constraint. Necessary for LLVM.
 
             elsif Nkind (Expr) = N_Type_Conversion
               and then Is_Discriminant (Expression (Expr))
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index b96a5fd..5af3b7b 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -4262,11 +4262,11 @@ package body Sem_Ch6 is
       --  object can then be used instead of the formal in case it is used
       --  in an actual to a call to a nested subprogram.
 
-      --  This method is used to suppliment our "small integer model" for
-      --  accessibility check generation (for more information see
+      --  This method is used to supplement our "small integer model" for
+      --  accessibility-check generation (for more information see
       --  Dynamic_Accessibility_Level).
 
-      --  Because we allow accesibility values greater than our expected value
+      --  Because we allow accessibility values greater than our expected value
       --  passing along the same extra accessibility formal as an actual
       --  to a nested subprogram becomes a problem because high values mean
       --  different things to the callee even though they are the same to the
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index fbfa0e0..7b36f8e 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -13093,7 +13093,7 @@ package body Sem_Prag is
             --  Infer the type to use for a string literal or a concatentation
             --  of operands whose types can be inferred. For such expressions,
             --  returns the "narrowest" of the three predefined string types
-            --  that can represent the characters occuring in the expression.
+            --  that can represent the characters occurring in the expression.
             --  For other expressions, returns Empty.
 
             function Preferred_String_Type (Expr : Node_Id) return Entity_Id is
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index f488573..9ca80aa 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -9071,8 +9071,8 @@ package body Sem_Util is
             --  components are being gathered for an aggregate, in which case
             --  the caller must check Report_Errors.
             --
-            --  In Ada2020 the above rules are relaxed. A non-static governing
-            --  discriminant is ok as long as it has a static subtype and
+            --  In Ada 2020 the above rules are relaxed. A nonstatic governing
+            --  discriminant is OK as long as it has a static subtype and
             --  every value of that subtype (and there must be at least one)
             --  selects the same variant.
 
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index b41b875..7df8140 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -2991,7 +2991,7 @@ package Sem_Util is
       function Choice_List_Intervals (Discrete_Choices : List_Id)
                                      return Discrete_Interval_List;
       --  Given a discrete choice list, returns the (unique) interval
-      --  list representing the chosen values..
+      --  list representing the chosen values.
 
       function Is_Subset (Subset, Of_Set : Discrete_Interval_List)
         return Boolean;