Fix double word typos.

From-SVN: r225726

12 files changed, 28 insertions, 14 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 437e72f..73ec8de 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,17 @@
+2015-07-12  Aldy Hernandez  <aldyh@redhat.com>
+
+	* gcc-interface/utils.c: Fix double word typos.
+	* gnat_ugn.texi: Same.
+	* init.c: Same.
+	* par.adb: Same.
+	* projects.texi: Same.
+	* sem_ch4.adb: Same.
+	* sem_ch6.adb: Same.
+	* sem_dim.adb: Same.
+	* sem_eval.adb: Same.
+	* sem_prag.adb: Same.
+	* sem_warn.adb: Same.
+
 2015-07-07  Andrew MacLeod  <amacleod@redhat.com>
 
 	* gcc-interface/cuintp.c: Adjust includes.
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index b9f803d..0032839 100644
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -4826,7 +4826,7 @@ unchecked_convert (tree type, tree expr, bool notrunc_p)
   if (etype == type)
     return expr;
 
-  /* If both types types are integral just do a normal conversion.
+  /* If both types are integral just do a normal conversion.
      Likewise for a conversion to an unconstrained array.  */
   if (((INTEGRAL_TYPE_P (type)
 	|| (POINTER_TYPE_P (type) && !TYPE_IS_THIN_POINTER_P (type))
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index 3a4146c..21fd59e 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -9130,7 +9130,7 @@ messages showing
 where implicit @cite{pragma Elaborate} and @cite{pragma Elaborate_All}
 are generated. This is useful in diagnosing elaboration circularities
 caused by these implicit pragmas when using the static elaboration
-model. See See the section in this guide on elaboration checking for
+model. See the section in this guide on elaboration checking for
 further details. These messages are not generated by default, and are
 intended only for temporary use when debugging circularity problems.
 @end table
@@ -21139,7 +21139,7 @@ in an executable.
 @item 
 @strong{Run_Path_Origin}: single
 
-Value is the the string that may replace the path name of the executable
+Value is the string that may replace the path name of the executable
 directory in the run path options.
 
 @item 
@@ -21256,7 +21256,7 @@ the prefix is "lib".
 @item 
 @strong{Shared_Library_Suffix}: single
 
-Value is the the extension of the name of shared library files. When not
+Value is the extension of the name of shared library files. When not
 declared, the extension is ".so".
 
 @item 
diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 9d9f40c..5754fae 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -1229,7 +1229,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs)
 	                     unsigned int acmode);
 
       /* If SS$_CONTROLC has been imported as an exception, it will take
-	 priority over a a Ctrl/C handler.  See above.  SIGINT has a
+	 priority over a Ctrl/C handler.  See above.  SIGINT has a
 	 different condition value due to it's DECCCRTL roots and it's
 	 the condition that gets raised for a "kill -INT".  */
       if ((ctrlc_match || sigint_match) && __gnat_ctrl_c_handler)
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb
index 76f6e53..a4658bf 100644
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -967,7 +967,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is
       --  to either a WITH keyword starting an aspect specification, or an
       --  instance of what shpould be a terminator token. In the former case,
       --  the aspect specifications are scanned out including the terminator
-      --  token if it it is a semicolon, and the Has_Aspect_Specifications
+      --  token if it is a semicolon, and the Has_Aspect_Specifications
       --  flag is set in the given declaration node. A list of aspects
       --  is built and stored for this declaration node using a call to
       --  Set_Aspect_Specifications. If no WITH keyword is present, then this
diff --git a/gcc/ada/projects.texi b/gcc/ada/projects.texi
index aa12e5b..2ca6bab 100644
--- a/gcc/ada/projects.texi
+++ b/gcc/ada/projects.texi
@@ -4088,7 +4088,7 @@ in an executable.
 
 @item @b{Run_Path_Origin}: single
 
-Value is the the string that may replace the path name of the executable
+Value is the string that may replace the path name of the executable
 directory in the run path options.
 
 @item @b{Separate_Run_Path_Options}: single
@@ -4186,7 +4186,7 @@ the prefix is "lib".
 
 @item @b{Shared_Library_Suffix}: single
 
-Value is the the extension of the name of shared library files. When not
+Value is the extension of the name of shared library files. When not
 declared, the extension is ".so".
 
 @item @b{Symbolic_Link_Supported}: single
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 80f0234..473d65ef 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -6136,7 +6136,7 @@ package body Sem_Ch4 is
          --  to be considered, we don't want the default inequality declared
          --  in Standard to be chosen, and the "/=" will be rewritten as a
          --  negation of "=" (see the end of Analyze_Equality_Op). This ensures
-         --  that that rewriting happens during analysis rather than being
+         --  that rewriting happens during analysis rather than being
          --  delayed until expansion (this is needed for ASIS, which only sees
          --  the unexpanded tree). Note that if the node is N_Op_Ne, but Op_Id
          --  is Name_Op_Eq then we still proceed with the interpretation,
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 18a9b02..4f6038e 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -4402,7 +4402,7 @@ package body Sem_Ch6 is
 
       --  Proceed with analysis. Do not emit a cross-reference entry if the
       --  specification comes from an expression function, because it may be
-      --  the completion of a previous declaration. It is is not, the cross-
+      --  the completion of a previous declaration. It is not, the cross-
       --  reference entry will be emitted for the new subprogram declaration.
 
       if Nkind (Parent (N)) /= N_Expression_Function then
diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb
index 1f98027..ebacba9 100644
--- a/gcc/ada/sem_dim.adb
+++ b/gcc/ada/sem_dim.adb
@@ -322,7 +322,7 @@ package body Sem_Dim is
    --  string of dimension symbols. If In_Error_Msg is True (i.e. the String_Id
    --  will be used to issue an error message) then this routine has a special
    --  handling for the insertion characters * or [ which must be preceded by
-   --  a quote ' to to be placed literally into the message.
+   --  a quote ' to be placed literally into the message.
 
    function From_Dim_To_Str_Of_Unit_Symbols
      (Dims   : Dimension_Type;
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index ebfa492..d8a4f3e 100644
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -1093,7 +1093,7 @@ package body Sem_Eval is
       elsif No (Ltyp) or else No (Rtyp) then
          return Unknown;
 
-      --  We do not attempt comparisons for packed arrays arrays represented as
+      --  We do not attempt comparisons for packed arrays represented as
       --  modular types, where the semantics of comparison is quite different.
 
       elsif Is_Packed_Array_Impl_Type (Ltyp)
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index d516c23..c3f7618 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -6753,7 +6753,7 @@ package body Sem_Prag is
                Generate_Reference (E, Id, 'i');
             end if;
 
-            --  If the pragma comes from from an aspect, it only applies to the
+            --  If the pragma comes from an aspect, it only applies to the
             --  given entity, not its homonyms.
 
             if From_Aspect_Specification (N) then
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 518c919..9140a08 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -4366,7 +4366,7 @@ package body Sem_Warn is
                      --  Otherwise we are at the outer level. An exception
                      --  handler is significant only if it references the
                      --  variable in question, or if the entity in question
-                     --  is an OUT or IN OUT parameter, which which case
+                     --  is an OUT or IN OUT parameter, in which case
                      --  the caller can reference it after the exception
                      --  handler completes.