Patchwork doubled words

login
register
mail settings
Submitter Mike Stump
Date April 10, 2011, 6:01 p.m.
Message ID <3D9D7160-F0C0-451E-964D-10D8E9537A7F@comcast.net>
Download mbox | patch
Permalink /patch/90525/
State New
Headers show

Comments

Mike Stump - April 10, 2011, 6:01 p.m.
On Apr 10, 2011, at 4:54 AM, Jim Meyering wrote:
> I've noticed/fixed a few occurrences of doubled words like "the the",
> "to to"

I fixed all the non-surious matches in the gcc/testsuite.  if if in the fortran testsuite was the major spurious match.  Thanks.
Jim Meyering - April 10, 2011, 9:07 p.m.
Mike Stump wrote:
> On Apr 10, 2011, at 4:54 AM, Jim Meyering wrote:
>> I've noticed/fixed a few occurrences of doubled words like "the the",
>> "to to"
>
> I fixed all the non-surious matches in the gcc/testsuite.  if if in
> the fortran testsuite was the major spurious match.  Thanks.

Thanks.
Yet more: "an" and "it".
At least the first one in the .texi file is legit.

$ git ls-files .|xargs perl -0777 -n -e 'while (/\b(it)\s+\1\b/gms)' -e '{$n=($` =~ tr/\n/\n/ + 1); ($v=$&)=~s/\n/\\n/g; print "$ARGV:$n:$v\n"}'|grep -v ChangeLog
gcc/ada/gnat_ugn.texi:12636:it\nit
gcc/config/cris/cris.opt:152:it it
gcc/gensupport.c:1066:it\n     it
gcc/testsuite/ada/acats/tests/cxg/cxg2014.a:263:it it
libiberty/regex.c:4085:it\n                 it
libjava/classpath/java/io/ByteArrayOutputStream.java:61:it it
libjava/classpath/java/io/CharArrayWriter.java:58:it it
libjava/classpath/org/omg/CORBA_2_3/portable/OutputStream.java:75:it it
libstdc++-v3/doc/html/ext/lwg-defects.html:9102:it it
libstdc++-v3/testsuite/data/thirty_years_among_the_dead_preproc.txt:73079:it\nit
libstdc++-v3/testsuite/data/thirty_years_among_the_dead_preproc.txt:171737:it\nit


$ git ls-files .|xargs perl -0777 -n -e 'while (/\b(an)\s+\1\b/gms)' -e '{$n=($` =~ tr/\n/\n/ + 1); ($v=$&)=~s/\n/\\n/g; print "$ARGV:$n:$v\n"}'|grep -v ChangeLog
gcc/fortran/frontend-passes.c:213:an an
libffi/src/dlmalloc.c:1822:an an
libjava/classpath/gnu/CORBA/CDR/AbstractCdrOutput.java:877:an an
libjava/classpath/gnu/javax/crypto/jce/params/BlockCipherParameters.java:78:an an
libjava/classpath/org/omg/CORBA/CompletionStatusHelper.java:93:an an
Mike Stump - April 23, 2011, 12:50 a.m.
On Apr 10, 2011, at 2:07 PM, Jim Meyering wrote:
> $ git ls-files .|xargs perl -0777 -n -e 'while (/\b(it)\s+\1\b/gms)' -e '{$n=($` =~ tr/\n/\n/ + 1); ($v=$&)=~s/\n/\\n/g; print "$ARGV:$n:$v\n"}'|grep -v ChangeLog
> gcc/config/cris/cris.opt:152:it it
> gcc/gensupport.c:1066:it\n     it

These are obvious to me, so I checked in fixes for them.

Patch

Index: gcc.target/mips/inter/mips16_stubs_1_x.c
===================================================================
--- gcc.target/mips/inter/mips16_stubs_1_x.c	(revision 172244)
+++ gcc.target/mips/inter/mips16_stubs_1_x.c	(working copy)
@@ -89,7 +89,7 @@ 
 #define CHECK_RESULT(x, y) if ((x) != (y)) abort ()
 #define CHECK_VOID_RESULT(x, y)  CHECK_RESULT (((x), the_result), y)
 
-/* Call functions through pointers and and check against expected results.  */
+/* Call functions through pointers and check against expected results.  */
 void
 test (void)
 {
Index: gfortran.dg/func_result_1.f90
===================================================================
--- gfortran.dg/func_result_1.f90	(revision 172244)
+++ gfortran.dg/func_result_1.f90	(working copy)
@@ -1,5 +1,5 @@ 
 ! { dg-do run }
-! From PR 19673 : We didn't dereference the the result from POINTER
+! From PR 19673 : We didn't dereference the result from POINTER
 ! functions with a RESULT clause
 program ret_ptr
   if (foo(99) /= bar(99)) call abort ()
Index: gfortran.dg/use_rename_1.f90
===================================================================
--- gfortran.dg/use_rename_1.f90	(revision 172244)
+++ gfortran.dg/use_rename_1.f90	(working copy)
@@ -1,6 +1,6 @@ 
 ! { dg-do compile }
 ! Tests the fix for PR34854, in which the second of the two subroutines would fail
-! because the the type declaration of nmoltype_phase would incorrectly conflict
+! because the type declaration of nmoltype_phase would incorrectly conflict
 ! with the type given to the module variable of the same name.
 !
 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Index: gfortran.dg/missing_derived_type_1.f90
===================================================================
--- gfortran.dg/missing_derived_type_1.f90	(revision 172244)
+++ gfortran.dg/missing_derived_type_1.f90	(working copy)
@@ -1,5 +1,5 @@ 
 ! { dg-do compile }
-! Tests the fix for PR29364, in which the the absence of the derived type
+! Tests the fix for PR29364, in which the absence of the derived type
 ! 'nonexist' was not diagnosed.
 !
 ! Contributed by Tobias Burnus  <tobias.burnus@physik.fu-berlin.de>
Index: gcc.c-torture/execute/990826-0.x
===================================================================
--- gcc.c-torture/execute/990826-0.x	(revision 172244)
+++ gcc.c-torture/execute/990826-0.x	(working copy)
@@ -1,7 +1,7 @@ 
 # XFAIL this test for AIX using -msoft-float.
 # This test calls the system libm.a function floor.
 # A false failure is reported if -msoft-float is used.
-# AIX expects the the parameters to be passed in fp regs. 
+# AIX expects the parameters to be passed in fp regs. 
 if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
     set torture_eval_before_execute {
 	global compiler_conditional_xfail_data
Index: gcc.c-torture/execute/980709-1.x
===================================================================
--- gcc.c-torture/execute/980709-1.x	(revision 172244)
+++ gcc.c-torture/execute/980709-1.x	(working copy)
@@ -1,7 +1,7 @@ 
 # XFAIL this test for AIX using -msoft-float.
 # This test calls the system libm.a function pow.
 # A false failure is reported if -msoft-float is used.
-# AIX expects the the parameters to be passed in fp regs. 
+# AIX expects the parameters to be passed in fp regs. 
 if { [istarget powerpc-*-aix*] || [istarget rs6000-*-aix*] } {
     set torture_eval_before_execute {
 	global compiler_conditional_xfail_data
Index: gcc.c-torture/compile/20011106-2.c
===================================================================
--- gcc.c-torture/compile/20011106-2.c	(revision 172244)
+++ gcc.c-torture/compile/20011106-2.c	(working copy)
@@ -1,4 +1,4 @@ 
-/* Test the the type of a component of a conditional expression between
+/* Test the type of a component of a conditional expression between
    two structures is correct.  */
 /* Origin: Joseph Myers <jsm28@cam.ac.uk>.  */
 
Index: ada/acats/tests/c4/c460011.a
===================================================================
--- ada/acats/tests/c4/c460011.a	(revision 172244)
+++ ada/acats/tests/c4/c460011.a	(working copy)
@@ -37,7 +37,7 @@ 
 --      and greater than the value of the mod.
 --      Declare a generic test procedure and instantiate it for each of the
 --      unsigned types for each operand type.
---      Check that the the operand is properly rounded during the conversion.
+--      Check that the operand is properly rounded during the conversion.
 --
 -- APPLICABILITY CRITERIA:
 --      This test is applicable to all implementations which support
Index: ada/acats/tests/c9/c954013.a
===================================================================
--- ada/acats/tests/c9/c954013.a	(revision 172244)
+++ ada/acats/tests/c9/c954013.a	(working copy)
@@ -363,7 +363,7 @@ 
                -- Show that this message did pass through the Distributor Task
                Transaction.TC_Thru_Dist := true;
 
-               -- Pass this transaction on the the appropriate computation
+               -- Pass this transaction on the appropriate computation
                -- task
                case Transaction.Code is 
                   when Credit =>
Index: gcc.dg/vect/vect-peel-1.c
===================================================================
--- gcc.dg/vect/vect-peel-1.c	(revision 172244)
+++ gcc.dg/vect/vect-peel-1.c	(working copy)
@@ -14,10 +14,10 @@ 
   int i;
   int ia[N+1];
 
-  /* All the accesses are misaligned. With cost model disabled, we count the 
-     the number of aligned accesses for each peeling option, and in this case
-     we align the two loads if possible (i.e., if misaligned stores are 
-     supported).  */
+  /* All the accesses are misaligned. With cost model disabled, we
+     count the number of aligned accesses for each peeling option, and
+     in this case we align the two loads if possible (i.e., if
+     misaligned stores are supported).  */
   for (i = 1; i <= N; i++)
     {
       ia[i] = ib[i+2] + ib[i+6];
Index: objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h
===================================================================
--- objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h	(revision 172244)
+++ objc-obj-c++-shared/objc-test-suite-next-encode-assist-impl.h	(working copy)
@@ -676,7 +676,7 @@ 
          && *ntype++ != '=')
     /* do nothing */;
 
-  /* If there's a "<name>=", ntype - 1 points to '='; skip the the name */
+  /* If there's a "<name>=", ntype - 1 points to '='; skip the name */
   if (*(ntype - 1) == '=')
     type = ntype;
 
Index: objc/execute/next_mapping.h
===================================================================
--- objc/execute/next_mapping.h	(revision 172244)
+++ objc/execute/next_mapping.h	(working copy)
@@ -749,7 +749,7 @@ 
          && *ntype++ != '=')
     /* do nothing */;
 
-  /* If there's a "<name>=", ntype - 1 points to '='; skip the the name */
+  /* If there's a "<name>=", ntype - 1 points to '='; skip the name */
   if (*(ntype - 1) == '=')
     type = ntype;