Fix up duplicated duplicated words in comments

Like in r10-7215-g700d4cb08c88aec37c13e21e63dd61fd698baabc 2 years ago,
I've run
grep -v 'long long\|optab optab\|template template\|double double' *.{[chS],cc} */*.{[chS],cc} *.def config/*/* 2>/dev/null | grep ' \([a-zA-Z]\+\) \1 '
and for the cases that looked clearly wrong changed them, mostly by removing
one of the duplicated words but in some cases with other changes.

2022-03-07  Jakub Jelinek  <jakub@redhat.com>

gcc/
	* tree-ssa-propagate.cc: Fix up duplicated word issue in a comment.
	* config/riscv/riscv.cc: Likewise.
	* config/darwin.h: Likewise.
	* config/i386/i386.cc: Likewise.
	* config/aarch64/thunderx3t110.md: Likewise.
	* config/aarch64/fractional-cost.h: Likewise.
	* config/vax/vax.cc: Likewise.
	* config/rs6000/pcrel-opt.md: Likewise.
	* config/rs6000/predicates.md: Likewise.
	* ctfc.h: Likewise.
	* tree-ssa-uninit.cc: Likewise.
	* value-relation.h: Likewise.
	* gimple-range-gori.cc: Likewise.
	* ipa-polymorphic-call.cc: Likewise.
	* pointer-query.cc: Likewise.
	* ipa-sra.cc: Likewise.
	* internal-fn.cc: Likewise.
	* varasm.cc: Likewise.
	* gimple-ssa-warn-access.cc: Likewise.
gcc/analyzer/
	* store.cc: Fix up duplicated word issue in a comment.
	* analyzer.cc: Likewise.
	* engine.cc: Likewise.
	* sm-taint.cc: Likewise.
gcc/c-family/
	* c-attribs.cc: Fix up duplicated word issue in a comment.
gcc/cp/
	* cvt.cc: Fix up duplicated word issue in a comment.
	* pt.cc: Likewise.
	* module.cc: Likewise.
	* coroutines.cc: Likewise.
gcc/fortran/
	* trans-expr.cc: Fix up duplicated word issue in a comment.
	* gfortran.h: Likewise.
	* scanner.cc: Likewise.
gcc/jit/
	* libgccjit.h: Fix up duplicated word issue in a comment.

32 files changed, 39 insertions, 39 deletions

diff --git a/gcc/analyzer/analyzer.cc b/gcc/analyzer/analyzer.cc
index 6784417..2c63a53 100644
--- a/gcc/analyzer/analyzer.cc
+++ b/gcc/analyzer/analyzer.cc
@@ -109,7 +109,7 @@ get_diagnostic_tree_for_gassign_1 (const gassign *assign_stmt,
 }
 
 /*  Subroutine of fixup_tree_for_diagnostic_1, called on SSA names.
-    Attempt to reconstruct a a tree expression for SSA_NAME
+    Attempt to reconstruct a tree expression for SSA_NAME
     based on its def-stmt.
     SSA_NAME must be non-NULL.
     VISITED must be non-NULL; it is used to ensure termination.
diff --git a/gcc/analyzer/engine.cc b/gcc/analyzer/engine.cc
index f5b85ce..94c13d4 100644
--- a/gcc/analyzer/engine.cc
+++ b/gcc/analyzer/engine.cc
@@ -3918,7 +3918,7 @@ exploded_graph::process_node (exploded_node *node)
                         analysis of the current function.
 
                         The analyzer handles calls to such functions while
-                        analysing the stmt itself, so the the function call
+                        analysing the stmt itself, so the function call
                         must have been handled by the anlyzer till now.  */
                      exploded_node *next
                        = get_or_create_node (next_point,
diff --git a/gcc/analyzer/sm-taint.cc b/gcc/analyzer/sm-taint.cc
index 57a0ac6..c7b2832 100644
--- a/gcc/analyzer/sm-taint.cc
+++ b/gcc/analyzer/sm-taint.cc
@@ -891,7 +891,7 @@ taint_state_machine::check_for_tainted_size_arg (sm_context *sm_ctxt,
     return;
 
   /* Initialize a map of attribute access specifications for arguments
-     to the function function call.  */
+     to the function call.  */
   rdwr_map rdwr_idx;
   init_attr_rdwr_indices (&rdwr_idx, TYPE_ATTRIBUTES (fntype));
 
diff --git a/gcc/analyzer/store.cc b/gcc/analyzer/store.cc
index ade6dec..58df7aa 100644
--- a/gcc/analyzer/store.cc
+++ b/gcc/analyzer/store.cc
@@ -1204,7 +1204,7 @@ binding_cluster::validate () const
 /* Return a new json::object of the form
    {"escaped": true/false,
     "touched": true/false,
-    "map" : object for the the binding_map.  */
+    "map" : object for the binding_map.  */
 
 json::object *
 binding_cluster::to_json () const
@@ -1892,7 +1892,7 @@ binding_cluster::redundant_p () const
 	  && !m_touched);
 }
 
-/* Add PV to OUT_PVS, casting it to TYPE if if is not already of that type.  */
+/* Add PV to OUT_PVS, casting it to TYPE if it is not already of that type.  */
 
 static void
 append_pathvar_with_type (path_var pv,
diff --git a/gcc/c-family/c-attribs.cc b/gcc/c-family/c-attribs.cc
index d394ea9..c885d88 100644
--- a/gcc/c-family/c-attribs.cc
+++ b/gcc/c-family/c-attribs.cc
@@ -3421,7 +3421,7 @@ handle_malloc_attribute (tree *node, tree name, tree args, int flags,
 	 it with this one.  Ideally, the attribute would reference
 	 the DECL of the deallocator but since that changes for each
 	 redeclaration, use DECL_NAME instead.  (DECL_ASSEMBLER_NAME
-	 need not be set set this point and setting it here is too early.  */
+	 need not be set at this point and setting it here is too early.  */
       tree attrs = build_tree_list (NULL_TREE, DECL_NAME (fndecl));
       attrs = tree_cons (get_identifier ("*dealloc"), attrs, at_noinline);
       decl_attributes (&dealloc, attrs, 0);
@@ -5142,7 +5142,7 @@ handle_access_attribute (tree node[3], tree name, tree args, int flags,
      value: "+^2[*],$0$1^3[*],$1$1"
      list:  < <0, x> <1, y> >
 
-   where the list has a single value which itself is is a list each
+   where the list has a single value which itself is a list, each
    of whose <node>s corresponds to one VLA bound for each of the two
    parameters.  */
 
diff --git a/gcc/config/aarch64/fractional-cost.h b/gcc/config/aarch64/fractional-cost.h
index 62961be..7e47cbf 100644
--- a/gcc/config/aarch64/fractional-cost.h
+++ b/gcc/config/aarch64/fractional-cost.h
@@ -61,7 +61,7 @@ private:
   constexpr fractional_cost (uint64_t value, raw) : m_value (value) {}
 
   // A multiple of [1, 16] * 16.  This ensures that 1/N is representable
-  // for every every possible SVE element count N, or for any "X per cycle"
+  // for every possible SVE element count N, or for any "X per cycle"
   // value N in the range [1, 16].
   static const uint32_t SCALE = 11531520;
 
diff --git a/gcc/config/aarch64/thunderx3t110.md b/gcc/config/aarch64/thunderx3t110.md
index 198c3bf..02ee3c2 100644
--- a/gcc/config/aarch64/thunderx3t110.md
+++ b/gcc/config/aarch64/thunderx3t110.md
@@ -138,7 +138,7 @@
 			logic_shift_imm,logics_shift_imm"))
   "thunderx3t110_i01")
 
-; we are going for the the optimistic answer (13)
+; we are going for the optimistic answer (13)
 ; for now, the worst case is 23
 (define_insn_reservation "thunderx3t110_div" 13
   (and (eq_attr "tune" "thunderx3t110")
diff --git a/gcc/config/darwin.h b/gcc/config/darwin.h
index ceb043a..3682bd2 100644
--- a/gcc/config/darwin.h
+++ b/gcc/config/darwin.h
@@ -340,7 +340,7 @@ extern GTY(()) int darwin_ms_struct;
 " %:version-compare(>= 10.6 mmacosx-version-min= -no_compact_unwind) "
 
 /* In Darwin linker specs we can put -lcrt0.o and ld will search the library
-   path for crt0.o or -lcrtx.a and it will search for for libcrtx.a.  As for
+   path for crt0.o or -lcrtx.a and it will search for libcrtx.a.  As for
    other ports, we can also put xxx.{o,a}%s and get the appropriate complete
    startfile absolute directory.  This latter point is important when we want
    to override ld's rule of .dylib being found ahead of .a and the user wants
diff --git a/gcc/config/i386/i386.cc b/gcc/config/i386/i386.cc
index 9521990..efa947f 100644
--- a/gcc/config/i386/i386.cc
+++ b/gcc/config/i386/i386.cc
@@ -20334,7 +20334,7 @@ ix86_division_cost (const struct processor_costs *cost,
 
 /* Return cost of shift in MODE.
    If CONSTANT_OP1 is true, the op1 value is known and set in OP1_VAL.
-   AND_IN_OP1 specify in op1 is result of and and SHIFT_AND_TRUNCATE
+   AND_IN_OP1 specify in op1 is result of AND and SHIFT_AND_TRUNCATE
    if op1 is a result of subreg.
 
    SKIP_OP0/1 is set to true if cost of OP0/1 should be ignored.  */
diff --git a/gcc/config/riscv/riscv.cc b/gcc/config/riscv/riscv.cc
index 6885b4b..7da9d37 100644
--- a/gcc/config/riscv/riscv.cc
+++ b/gcc/config/riscv/riscv.cc
@@ -4984,7 +4984,7 @@ riscv_option_override (void)
     target_flags |= MASK_FDIV;
 
   /* Handle -mtune, use -mcpu if -mtune is not given, and use default -mtune
-     if -mtune and -mcpu both not not given.  */
+     if -mtune and -mcpu both not given.  */
   cpu = riscv_parse_tune (riscv_tune_string ? riscv_tune_string :
 			  (riscv_cpu_string ? riscv_cpu_string :
 			   RISCV_TUNE_STRING_DEFAULT));
diff --git a/gcc/config/rs6000/pcrel-opt.md b/gcc/config/rs6000/pcrel-opt.md
index c72298f..bd05330 100644
--- a/gcc/config/rs6000/pcrel-opt.md
+++ b/gcc/config/rs6000/pcrel-opt.md
@@ -60,7 +60,7 @@
 ;; that both registers may be set in the first insn, and will be used in the
 ;; second insn.
 ;;
-;; Since we use UNSPEC's and link both the the register holding the external
+;; Since we use UNSPEC's and link both the register holding the external
 ;; address and the value being loaded, it should prevent other passes from
 ;; modifying it.
 ;;
diff --git a/gcc/config/rs6000/predicates.md b/gcc/config/rs6000/predicates.md
index 28f6e98..566b85b 100644
--- a/gcc/config/rs6000/predicates.md
+++ b/gcc/config/rs6000/predicates.md
@@ -496,7 +496,7 @@
 })
 
 ;; Return 1 if op is a constant integer valid for D field
-;; or non-special register register.
+;; or non-special register.
 (define_predicate "reg_or_short_operand"
   (if_then_else (match_code "const_int")
     (match_operand 0 "short_cint_operand")
@@ -1109,7 +1109,7 @@
 		    && (DEFAULT_ABI != ABI_AIX || SYMBOL_REF_FUNCTION_P (op))")))
 
 ;; Return 1 if op is an operand that can be loaded via the GOT.
-;; or non-special register register field no cr0
+;; or non-special register field no cr0
 (define_predicate "got_operand"
   (match_code "symbol_ref,const,label_ref"))
 
diff --git a/gcc/config/vax/vax.cc b/gcc/config/vax/vax.cc
index 20c4d52..f44e23d 100644
--- a/gcc/config/vax/vax.cc
+++ b/gcc/config/vax/vax.cc
@@ -1124,7 +1124,7 @@ vax_select_cc_mode (enum rtx_code op,
 
 /* Return the narrowest CC mode that spans both modes offered.  If they
    intersect, this will be the wider of the two, and if they do not then
-   find find one that is a superset of both (i.e. CCNZmode for a pair
+   find one that is a superset of both (i.e. CCNZmode for a pair
    consisting of CCNmode and CCZmode).  A wider CC writer will satisfy
    a narrower CC reader, e.g. a comparison operator that uses CCZmode
    can use a CCNZmode output of a previous instruction.  */
diff --git a/gcc/cp/coroutines.cc b/gcc/cp/coroutines.cc
index 1792bf6..23dc282 100644
--- a/gcc/cp/coroutines.cc
+++ b/gcc/cp/coroutines.cc
@@ -1824,7 +1824,7 @@ expand_one_await_expression (tree *stmt, tree *await_expr, void *d)
       cp_walk_tree (await_init, co_await_find_in_subtree, &aw_expr_ptr, NULL))
     expand_one_await_expression (await_init, aw_expr_ptr, d);
 
-  /* Expand any more await expressions in the the original statement.  */
+  /* Expand any more await expressions in the original statement.  */
   if (cp_walk_tree (revised, co_await_find_in_subtree, &aw_expr_ptr, NULL))
     expand_one_await_expression (revised, aw_expr_ptr, d);
 
diff --git a/gcc/cp/cvt.cc b/gcc/cp/cvt.cc
index 53aa413..30a9806 100644
--- a/gcc/cp/cvt.cc
+++ b/gcc/cp/cvt.cc
@@ -2092,7 +2092,7 @@ can_convert_tx_safety (tree to, tree from)
 }
 
 /* Return true iff FROM can convert to TO by dropping noexcept.
-   This is just a subroutine of of fnptr_conv_p.  */
+   This is just a subroutine of fnptr_conv_p.  */
 
 static bool
 noexcept_conv_p (tree to, tree from)
diff --git a/gcc/cp/module.cc b/gcc/cp/module.cc
index ddaf9c2..cebf9c3 100644
--- a/gcc/cp/module.cc
+++ b/gcc/cp/module.cc
@@ -4617,7 +4617,7 @@ create_dirs (char *path)
       }
 }
 
-/* Given a CLASSTYPE_DECL_LIST VALUE get the the template friend decl,
+/* Given a CLASSTYPE_DECL_LIST VALUE get the template friend decl,
    if that's what this is.  */
 
 static tree
diff --git a/gcc/cp/pt.cc b/gcc/cp/pt.cc
index 8fb1734..8b5faee 100644
--- a/gcc/cp/pt.cc
+++ b/gcc/cp/pt.cc
@@ -30049,7 +30049,7 @@ do_class_deduction (tree ptype, tree tmpl, tree init,
 
    OUTER_TARGS is used during template argument deduction (context == adc_unify)
    to properly substitute the result.  It's also used in the adc_unify and
-   adc_requirement contexts to communicate the the necessary template arguments
+   adc_requirement contexts to communicate the necessary template arguments
    to satisfaction.  OUTER_TARGS is ignored in other contexts.
 
    For partial-concept-ids, extra args may be appended to the list of deduced
diff --git a/gcc/ctfc.h b/gcc/ctfc.h
index 4c22c17..18c93c8 100644
--- a/gcc/ctfc.h
+++ b/gcc/ctfc.h
@@ -144,7 +144,7 @@ typedef struct GTY ((chain_next ("%h.dmd_next"))) ctf_dmdef
 typedef struct GTY (()) ctf_func_arg
 {
   ctf_id_t farg_type;		  /* Type identifier of the argument.  */
-  const char * farg_name;	  /* Name of the the argument.  */
+  const char * farg_name;	  /* Name of the argument.  */
   uint32_t farg_name_offset;	  /* Offset of the name in str table.  */
   struct ctf_func_arg * farg_next;/* A list node.  */
 } ctf_func_arg_t;
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index f8fd1ba..7bf1d5a 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2137,7 +2137,7 @@ typedef struct gfc_namespace
   /* Linked list of !$omp declare variant constructs.  */
   struct gfc_omp_declare_variant *omp_declare_variant;
 
-  /* A hash set for the the gfc expressions that have already
+  /* A hash set for the gfc expressions that have already
      been finalized in this namespace.  */
 
   gfc_was_finalized *was_finalized;
diff --git a/gcc/fortran/scanner.cc b/gcc/fortran/scanner.cc
index 4df6576..b52282b 100644
--- a/gcc/fortran/scanner.cc
+++ b/gcc/fortran/scanner.cc
@@ -1915,7 +1915,7 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pbuflen, const int *first_char)
 
       /* For truncation and tab warnings, set seen_comment to false if one has
 	 either an OpenMP or OpenACC directive - or a !GCC$ attribute.  If
-	 OpenMP is enabled, use '!$' as as conditional compilation sentinel
+	 OpenMP is enabled, use '!$' as conditional compilation sentinel
 	 and OpenMP directive ('!$omp').  */
       if (seen_comment && first_comment && flag_openmp && comment_ix + 1 == i
 	  && c == '$')
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index eb6a78c..2549d32 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5678,7 +5678,7 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym)
      Note that allocatable implies 'len=:'.  */
   if (e->ts.type != BT_ASSUMED && e->ts.type != BT_CHARACTER )
     {
-      /* Length is known at compile time; use use 'block' for it.  */
+      /* Length is known at compile time; use 'block' for it.  */
       tmp = size_in_bytes (gfc_typenode_for_spec (&e->ts));
       tmp2 = gfc_get_cfi_desc_elem_len (cfi);
       gfc_add_modify (&block, tmp2, fold_convert (TREE_TYPE (tmp2), tmp));
diff --git a/gcc/gimple-range-gori.cc b/gcc/gimple-range-gori.cc
index 311214c..772ccb8 100644
--- a/gcc/gimple-range-gori.cc
+++ b/gcc/gimple-range-gori.cc
@@ -890,7 +890,7 @@ gori_compute::logical_combine (irange &r, enum tree_code code,
       case BIT_AND_EXPR:
         if (!lhs.zero_p ())
 	  {
-	    // The TRUE side is the intersection of the the 2 true ranges.
+	    // The TRUE side is the intersection of the 2 true ranges.
 	    r = op1_true;
 	    r.intersect (op2_true);
 	  }
diff --git a/gcc/gimple-ssa-warn-access.cc b/gcc/gimple-ssa-warn-access.cc
index b5f9e4c..75297ed 100644
--- a/gcc/gimple-ssa-warn-access.cc
+++ b/gcc/gimple-ssa-warn-access.cc
@@ -2642,7 +2642,7 @@ pass_waccess::check_strncmp (gcall *stmt)
      a bound that's larger than the size of either array makes no sense
      and is likely a bug.  When the length of neither of the two strings
      is known but the sizes of both of the arrays they are stored in is,
-     issue a warning if the bound is larger than than the size of
+     issue a warning if the bound is larger than the size of
      the larger of the two arrays.  */
 
   c_strlen_data lendata1{ }, lendata2{ };
diff --git a/gcc/internal-fn.cc b/gcc/internal-fn.cc
index dd3ee0d..8b1733e 100644
--- a/gcc/internal-fn.cc
+++ b/gcc/internal-fn.cc
@@ -1500,7 +1500,7 @@ expand_mul_overflow (location_t loc, tree lhs, tree arg0, tree arg1,
 		 0 and there will be no overflow, if the first argument is
 		 negative and the second argument positive, the result when
 		 treated as signed will be negative (minimum -0x7f80 or
-		 -0x7f..f80..0) there there will be always overflow.  So, do
+		 -0x7f..f80..0) there will be always overflow.  So, do
 		 res = (U) (s1 * u2)
 		 ovf = (S) res < 0  */
 	      struct separate_ops ops;
diff --git a/gcc/ipa-polymorphic-call.cc b/gcc/ipa-polymorphic-call.cc
index 3d5b95b..22f28e9 100644
--- a/gcc/ipa-polymorphic-call.cc
+++ b/gcc/ipa-polymorphic-call.cc
@@ -1598,7 +1598,7 @@ ipa_polymorphic_call_context::get_dynamic_type (tree instance,
   if (!maybe_in_construction && !maybe_derived_type)
     return false;
 
-  /* If we are in fact not looking at any object object or the instance is
+  /* If we are in fact not looking at any object or the instance is
      some placement new into a random load, give up straight away.  */
   if (TREE_CODE (instance) == MEM_REF)
     return false;
diff --git a/gcc/ipa-sra.cc b/gcc/ipa-sra.cc
index f8a4549..261a720 100644
--- a/gcc/ipa-sra.cc
+++ b/gcc/ipa-sra.cc
@@ -2874,7 +2874,7 @@ struct caller_issues
   bool thunk;
   /* Call site with no available information.  */
   bool unknown_callsite;
-  /* Call from outside the the candidate's comdat group.  */
+  /* Call from outside the candidate's comdat group.  */
   bool call_from_outside_comdat;
   /* There is a bit-aligned load into one of non-gimple-typed arguments. */
   bool bit_aligned_aggregate_argument;
diff --git a/gcc/jit/libgccjit.h b/gcc/jit/libgccjit.h
index 2a5ffac..95d60f8 100644
--- a/gcc/jit/libgccjit.h
+++ b/gcc/jit/libgccjit.h
@@ -842,7 +842,7 @@ gcc_jit_context_new_global (gcc_jit_context *ctxt,
    set to the corresponding value in `values`.  `fields` and `values`
    are paired by index.
 
-   Each value has to have have the same unqualified type as the field
+   Each value has to have the same unqualified type as the field
    it is applied to.
 
    A NULL value element  in `values` is a shorthand for zero initialization
@@ -892,7 +892,7 @@ gcc_jit_context_new_struct_constructor (gcc_jit_context *ctxt,
    `value` specifies what value to set the corresponding field to.
    If `value` is NULL, zero initialization will be used.
 
-   Each value has to have have the same unqualified type as the field
+   Each value has to have the same unqualified type as the field
    it is applied to.
 
    `field` need to be the same objects that were used
diff --git a/gcc/pointer-query.cc b/gcc/pointer-query.cc
index afbcd0a..1c3b732 100644
--- a/gcc/pointer-query.cc
+++ b/gcc/pointer-query.cc
@@ -959,7 +959,7 @@ void access_ref::add_offset (const offset_int &min, const offset_int &max)
 	 (which may be greater than MAX_OBJECT_SIZE).
 	 The lower bound is either the sum of the current offset and
 	 MIN when abs(MAX) is greater than the former, or zero otherwise.
-	 Zero because then then inverted range includes the negative of
+	 Zero because then the inverted range includes the negative of
 	 the lower bound.  */
       offset_int maxoff = wi::to_offset (TYPE_MAX_VALUE (ptrdiff_type_node));
       offrng[1] = maxoff;
diff --git a/gcc/tree-ssa-propagate.cc b/gcc/tree-ssa-propagate.cc
index 5092b37..7813e51 100644
--- a/gcc/tree-ssa-propagate.cc
+++ b/gcc/tree-ssa-propagate.cc
@@ -697,7 +697,7 @@ private:
 				 gimple_stmt_iterator new_gsi);
 };
 
-/* Call post_new_stmt for each each new statement that has been added
+/* Call post_new_stmt for each new statement that has been added
    to the current BB.  OLD_GSI is the statement iterator before the BB
    changes ocurred.  NEW_GSI is the iterator which may contain new
    statements.  */
diff --git a/gcc/tree-ssa-uninit.cc b/gcc/tree-ssa-uninit.cc
index ab83a4b..b48fcf1 100644
--- a/gcc/tree-ssa-uninit.cc
+++ b/gcc/tree-ssa-uninit.cc
@@ -403,7 +403,7 @@ maybe_warn_read_write_only (tree fndecl, gimple *stmt, tree arg, tree ptr)
     return;
 
   /* Initialize a map of attribute access specifications for arguments
-     to the function function call.  */
+     to the function call.  */
   rdwr_map rdwr_idx;
   init_attr_rdwr_indices (&rdwr_idx, TYPE_ATTRIBUTES (fntype));
 
@@ -514,7 +514,7 @@ check_defs (ao_ref *ref, tree vdef, void *data_)
   return true;
 }
 
-/* Counters and limits controlling the the depth of analysis and
+/* Counters and limits controlling the depth of analysis and
    strictness of the warning.  */
 struct wlimits
 {
@@ -785,7 +785,7 @@ maybe_warn_pass_by_reference (gcall *stmt, wlimits &wlims)
   const bool save_always_executed = wlims.always_executed;
 
   /* Initialize a map of attribute access specifications for arguments
-     to the function function call.  */
+     to the function call.  */
   rdwr_map rdwr_idx;
   init_attr_rdwr_indices (&rdwr_idx, TYPE_ATTRIBUTES (fntype));
 
@@ -979,7 +979,7 @@ warn_uninit_phi_uses (basic_block bb)
 static void
 warn_uninitialized_vars (bool wmaybe_uninit)
 {
-  /* Counters and limits controlling the the depth of the warning.  */
+  /* Counters and limits controlling the depth of the warning.  */
   wlimits wlims = { };
   wlims.wmaybe_uninit = wmaybe_uninit;
 
diff --git a/gcc/value-relation.h b/gcc/value-relation.h
index 6f47133..36e4cf9 100644
--- a/gcc/value-relation.h
+++ b/gcc/value-relation.h
@@ -50,7 +50,7 @@ along with GCC; see the file COPYING3.  If not see
 // relation comes back EQ_EXPR, it is also possible to query the set of
 // equivlaencies.  These are basically bitmaps over ssa_names.
 //
-// relations are maintained via the dominace trees, are are optimized assuming
+// Relations are maintained via the dominace trees and are optimized assuming
 // they are registered in dominance order.   When a new relation is added, it
 // is intersected with whatever existing relation exists in the dominance tree
 // and registered at the specified block.
diff --git a/gcc/varasm.cc b/gcc/varasm.cc
index d3d9daf..c41f17d 100644
--- a/gcc/varasm.cc
+++ b/gcc/varasm.cc
@@ -283,7 +283,7 @@ get_noswitch_section (unsigned int flags, noswitch_section_callback callback)
    a new section with the given fields if no such structure exists.
    When NOT_EXISTING, then fail if the section already exists.  Return
    the existing section if the SECTION_RETAIN bit doesn't match.  Set
-   the SECTION_WRITE | SECTION_RELRO bits on the the existing section
+   the SECTION_WRITE | SECTION_RELRO bits on the existing section
    if one of the section flags is SECTION_WRITE | SECTION_RELRO and the
    other has none of these flags in named sections and either the section
    hasn't been declared yet or has been declared as writable.  */