OSDN Git Service

2006-10-16 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 18 Oct 2006 17:17:49 +0000 (17:17 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 18 Oct 2006 17:17:49 +0000 (17:17 +0000)
        * m4/in_pack.m4: Fixed a typo.
        * m4/iforeach.m4: Fixed a typo.
        * m4/eoshift1.m4: Fixed a typo.
        * m4/eoshift3.m4: Fixed a typo.
        * m4/cshift1.m4: Fixed a typo.
        * m4/in_unpack.m4: Fixed a typo.
        * m4/reshape.m4: Fixed a typo.
        * m4/ifunction.m4: Fixed a typo.
        * runtime/environ.c: Fixed a typo.
        * runtime/in_pack_generic.c: Fixed a typo.
        * runtime/in_unpack_generic.c: Fixed a typo.
        * runtime/memory.c: Fixed a typo.
        * intrinsics/cshift0.c: Fixed a typo.
        * intrinsics/cpu_time.c: Fixed a typo.
        * intrinsics/pack_generic.c: Fixed a typo.
        * intrinsics/unpack_generic.c: Fixed a typo.
        * intrinsics/eoshift0.c: Fixed a typo.
        * intrinsics/eoshift2.c: Fixed a typo.
        * intrinsics/reshape_generic.c: Fixed a typo.
        * io/open.c: Fixed a typo.
        * io/list_read.c: Fixed a typo.
        * io/io.h: Fixed a typo.
        * io/transfer.c: Fixed a typo.
        * io/write.c: Fixed a typo.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117857 138bc75d-0d04-0410-961f-82ee72b054a4

25 files changed:
libgfortran/ChangeLog
libgfortran/intrinsics/cpu_time.c
libgfortran/intrinsics/cshift0.c
libgfortran/intrinsics/eoshift0.c
libgfortran/intrinsics/eoshift2.c
libgfortran/intrinsics/pack_generic.c
libgfortran/intrinsics/reshape_generic.c
libgfortran/intrinsics/unpack_generic.c
libgfortran/io/io.h
libgfortran/io/list_read.c
libgfortran/io/open.c
libgfortran/io/transfer.c
libgfortran/io/write.c
libgfortran/m4/cshift1.m4
libgfortran/m4/eoshift1.m4
libgfortran/m4/eoshift3.m4
libgfortran/m4/iforeach.m4
libgfortran/m4/ifunction.m4
libgfortran/m4/in_pack.m4
libgfortran/m4/in_unpack.m4
libgfortran/m4/reshape.m4
libgfortran/runtime/environ.c
libgfortran/runtime/in_pack_generic.c
libgfortran/runtime/in_unpack_generic.c
libgfortran/runtime/memory.c

index ff0e246..9eacd38 100644 (file)
@@ -1,3 +1,30 @@
+2006-10-16  Tobias Burnus  <burnus@net-b.de>
+
+       * m4/in_pack.m4: Fixed a typo.
+       * m4/iforeach.m4: Fixed a typo.
+       * m4/eoshift1.m4: Fixed a typo.
+       * m4/eoshift3.m4: Fixed a typo.
+       * m4/cshift1.m4: Fixed a typo.
+       * m4/in_unpack.m4: Fixed a typo.
+       * m4/reshape.m4: Fixed a typo.
+       * m4/ifunction.m4: Fixed a typo.
+       * runtime/environ.c: Fixed a typo.
+       * runtime/in_pack_generic.c: Fixed a typo.
+       * runtime/in_unpack_generic.c: Fixed a typo.
+       * runtime/memory.c: Fixed a typo.
+       * intrinsics/cshift0.c: Fixed a typo.
+       * intrinsics/cpu_time.c: Fixed a typo.
+       * intrinsics/pack_generic.c: Fixed a typo.
+       * intrinsics/unpack_generic.c: Fixed a typo.
+       * intrinsics/eoshift0.c: Fixed a typo.
+       * intrinsics/eoshift2.c: Fixed a typo.
+       * intrinsics/reshape_generic.c: Fixed a typo.
+       * io/open.c: Fixed a typo.
+       * io/list_read.c: Fixed a typo.
+       * io/io.h: Fixed a typo.
+       * io/transfer.c: Fixed a typo.
+       * io/write.c: Fixed a typo.
+
 2006-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/29277
index baee1f4..5e0dee2 100644 (file)
@@ -86,7 +86,7 @@ Boston, MA 02110-1301, USA.  */
 static inline void __cpu_time_1 (long *, long *) ATTRIBUTE_ALWAYS_INLINE;
 
 /* Helper function for the actual implementation of the CPU_TIME
-   intrnsic.  Returns a CPU time in microseconds or -1 if no CPU time
+   intrinsic.  Returns a CPU time in microseconds or -1 if no CPU time
    could be computed.  */
 
 #ifdef __MINGW32__
index 199e283..4df90ad 100644 (file)
@@ -276,7 +276,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
           n++;
index 6f02f66..a8a891b 100644 (file)
@@ -189,7 +189,7 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
           n++;
index f499029..334d274 100644 (file)
@@ -206,7 +206,7 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
           bptr -= bstride[n] * extent[n];
index f07b5aa..27a22ec 100644 (file)
@@ -41,7 +41,7 @@ Boston, MA 02110-1301, USA.  */
    Description: Pack an array into an array of rank one under the
    control of a mask.
 
-   Class: Transformational fucntion.
+   Class: Transformational function.
 
    Arguments:
       ARRAY   may be of any type. It shall not be scalar.
@@ -171,7 +171,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array,
                     and increment the next dimension.  */
                  count[n] = 0;
                  /* We could precalculate this product, but this is a
-                    less frequently used path so proabably not worth
+                    less frequently used path so probably not worth
                     it.  */
                  m -= mstride[n] * extent[n];
                  n++;
@@ -230,7 +230,7 @@ pack_internal (gfc_array_char *ret, const gfc_array_char *array,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           sptr -= sstride[n] * extent[n];
           mptr -= mstride[n] * extent[n];
           n++;
@@ -402,7 +402,7 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array,
                 increment the next dimension.  */
              count[n] = 0;
              /* We could precalculate these products, but this is a
-                less frequently used path so proabably not worth it.  */
+                less frequently used path so probably not worth it.  */
              sptr -= sstride[n] * extent[n];
              n++;
              if (n >= dim)
index 4f05416..97860b6 100644 (file)
@@ -190,7 +190,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape,
              the next dimension.  */
           rcount[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * rextent[n] * size;
           n++;
           if (n == rdim)
@@ -213,7 +213,7 @@ reshape_internal (parray *ret, parray *source, shape_type *shape,
              the next dimension.  */
           scount[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           src -= sstride[n] * sextent[n] * size;
           n++;
           if (n == sdim)
index ac4394c..5cf9666 100644 (file)
@@ -148,7 +148,7 @@ unpack_internal (gfc_array_char *ret, const gfc_array_char *vector,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           fptr -= fstride[n] * extent[n];
           mptr -= mstride[n] * extent[n];
index 0bfc23d..ecc4a9d 100644 (file)
@@ -108,7 +108,7 @@ array_loop_spec;
      or
       &GROUPNAME  OBJECT=value[s] [,OBJECT=value[s]]...&END
 
-   The object can be a fully qualified, compound name for an instrinsic
+   The object can be a fully qualified, compound name for an intrinsic
    type, derived types or derived type components.  So, a substring
    a(:)%b(4)%ch(2:4)(1:7) has to be treated correctly in namelist
    read. Hence full information about the structure of the object has
index 47ceb47..cddfd76 100644 (file)
@@ -2219,7 +2219,7 @@ nml_read_obj (st_parameter_dt *dtp, namelist_info * nl, index_type offset,
        }
 
       /* If the expanded read warning flag is set, increment it,
-        indicating that a single read has occured.  */
+        indicating that a single read has occurred.  */
       if (dtp->u.p.expanded_read >= 1)
        dtp->u.p.expanded_read++;
 
@@ -2298,7 +2298,7 @@ nml_get_obj_data (st_parameter_dt *dtp, namelist_info **pprev_nl,
       c = next_char (dtp);
       if (c != '?')
        {
-         st_sprintf (nml_err_msg, "namelist read: missplaced = sign");
+         st_sprintf (nml_err_msg, "namelist read: misplaced = sign");
          goto nml_err_ret;
        }
       nml_query (dtp, '=');
index c75ee1a..24ce51a 100644 (file)
@@ -178,7 +178,7 @@ edit_modes (st_parameter_open *opp, gfc_unit * u, unit_flags * flags)
 
       if (flags->pad != PAD_UNSPECIFIED)
        generate_error (&opp->common, ERROR_OPTION_CONFLICT,
-                       "PAD paramter conflicts with UNFORMATTED form in "
+                       "PAD parameter conflicts with UNFORMATTED form in "
                        "OPEN statement");
     }
 
@@ -284,7 +284,7 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags)
       if (flags->form == FORM_UNFORMATTED)
        {
          generate_error (&opp->common, ERROR_OPTION_CONFLICT,
-                         "PAD paramter conflicts with UNFORMATTED form in "
+                         "PAD parameter conflicts with UNFORMATTED form in "
                          "OPEN statement");
          goto fail;
        }
index b680d20..aacf4a3 100644 (file)
@@ -738,7 +738,7 @@ require_type (st_parameter_dt *dtp, bt expected, bt actual, const fnode *f)
 /* This subroutine is the main loop for a formatted data transfer
    statement.  It would be natural to implement this as a coroutine
    with the user program, but C makes that awkward.  We loop,
-   processesing format elements.  When we actually have to transfer
+   processing format elements.  When we actually have to transfer
    data instead of just setting flags, we return control to the user
    program which calls a subroutine that supplies the address and type
    of the next element, then comes back here to process it.  */
index 79018cc..121d629 100644 (file)
@@ -1,6 +1,6 @@
 /* Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
    Contributed by Andy Vaught
-   Namelist output contibuted by Paul Thomas
+   Namelist output contributed by Paul Thomas
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
 
index 964689f..68c2397 100644 (file)
@@ -176,7 +176,7 @@ cshift1 (gfc_array_char * const restrict ret,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
          hptr -= hstride[n] * extent[n];
index 4d624cb..0144fc1 100644 (file)
@@ -200,7 +200,7 @@ eoshift1 (gfc_array_char * const restrict ret,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
          hptr -= hstride[n] * extent[n];
index 269e131..7df08d2 100644 (file)
@@ -216,7 +216,7 @@ eoshift3 (gfc_array_char * const restrict ret,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * extent[n];
           sptr -= sstride[n] * extent[n];
          hptr -= hstride[n] * extent[n];
index 6ff9427..af53cef 100644 (file)
@@ -85,7 +85,7 @@ define(FINISH_FOREACH_FUNCTION,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           base -= sstride[n] * extent[n];
           n++;
           if (n == rank)
@@ -197,7 +197,7 @@ define(FINISH_MASKED_FOREACH_FUNCTION,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           base -= sstride[n] * extent[n];
           mbase -= mstride[n] * extent[n];
           n++;
index 74ae6a5..d2f2a80 100644 (file)
@@ -126,7 +126,7 @@ define(FINISH_ARRAY_FUNCTION,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           base -= sstride[n] * extent[n];
           dest -= dstride[n] * extent[n];
           n++;
@@ -277,7 +277,7 @@ define(FINISH_MASKED_ARRAY_FUNCTION,
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           base -= sstride[n] * extent[n];
           mbase -= mstride[n] * extent[n];
           dest -= dstride[n] * extent[n];
index 950919d..8120507 100644 (file)
@@ -105,7 +105,7 @@ rtype_name *
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           src -= stride[n] * extent[n];
           n++;
           if (n == dim)
index d6ee7c6..d0438f7 100644 (file)
@@ -94,7 +94,7 @@ void
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           dest -= stride[n] * extent[n];
           n++;
           if (n == dim)
index 569b413..ed594fb 100644 (file)
@@ -202,7 +202,7 @@ reshape_`'rtype_ccode (rtype * const restrict ret,
              the next dimension.  */
           rcount[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           rptr -= rstride[n] * rextent[n];
           n++;
           if (n == rdim)
@@ -225,7 +225,7 @@ reshape_`'rtype_ccode (rtype * const restrict ret,
              the next dimension.  */
           scount[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           src -= sstride[n] * sextent[n];
           n++;
           if (n == sdim)
index c519f08..555b448 100644 (file)
@@ -503,7 +503,7 @@ static variable variable_table[] = {
    stringize (DEFAULT_RECL), 0},
 
   {"GFORTRAN_LIST_SEPARATOR", 0, NULL, init_sep, show_sep,
-   "Separatator to use when writing list output.  May contain any number of "
+   "Separator to use when writing list output.  May contain any number of "
    "spaces\nand at most one comma.  Default is a single space.", 0},
 
   /* Memory related controls */
@@ -855,7 +855,7 @@ mark_range (int unit1, int unit2)
 
 /* Parse the GFORTRAN_CONVERT_UNITS variable.  This is called
    twice, once to count the units and once to actually mark them in
-   the table.  When counting, we don't check for double occurences
+   the table.  When counting, we don't check for double occurrences
    of units.  */
 
 static int
index 1536db1..7f02b97 100644 (file)
@@ -138,7 +138,7 @@ internal_pack (gfc_array_char * source)
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           src -= stride[n] * extent[n] * size;
           n++;
           if (n == dim)
index 8ca0fa5..7c14355 100644 (file)
@@ -136,7 +136,7 @@ internal_unpack (gfc_array_char * d, const void * s)
              the next dimension.  */
           count[n] = 0;
           /* We could precalculate these products, but this is a less
-             frequently used path so proabably not worth it.  */
+             frequently used path so probably not worth it.  */
           dest -= stride[n] * extent[n] * size;
           n++;
           if (n == dim)
index db55a55..43a72e3 100644 (file)
@@ -1,4 +1,4 @@
-/* Memory mamagement routines.
+/* Memory management routines.
    Copyright 2002, 2005, 2006 Free Software Foundation, Inc.
    Contributed by Paul Brook <paul@nowt.org>