trans-array.c (gfc_trans_static_array_pointer, [...]): Fix comment and formatting...

* trans-array.c (gfc_trans_static_array_pointer,
get_array_ctor_var_strlen, gfc_conv_array_index_offset): Fix
comment and formatting typos.

From-SVN: r96635

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0bb9a151516cd29d9b98836ee193780785c8f39e..314d79f2ef79b9a1c82c93fea468e542b99df5cf 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-17  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       * trans-array.c (gfc_trans_static_array_pointer,
+       get_array_ctor_var_strlen, gfc_conv_array_index_offset): Fix
+       comment and formatting typos.
+
 2005-03-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        * invoke.texi: Fix typos.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index bd77eb46850a0710ecc71438428d8b1c32f9c32a..b53f8629fd1762db48abf5d5273a672133837737 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -391,7 +391,7 @@ gfc_trans_static_array_pointer (gfc_symbol * sym)
   gcc_assert (TREE_STATIC (sym->backend_decl));
   /* Just zero the data member.  */
   type = TREE_TYPE (sym->backend_decl);
-  DECL_INITIAL (sym->backend_decl) =gfc_build_null_descriptor (type);
+  DECL_INITIAL (sym->backend_decl) = gfc_build_null_descriptor (type);
 }
 
 
@@ -996,7 +996,7 @@ get_array_ctor_var_strlen (gfc_expr * expr, tree * len)
       switch (ref->type)
        {
        case REF_ARRAY:
-         /* Array references don't change teh sting length.  */
+         /* Array references don't change the string length.  */
          break;
 
        case COMPONENT_REF:
@@ -1526,7 +1526,7 @@ gfc_conv_array_index_offset (gfc_se * se, gfc_ss_info * info, int dim, int i,
          /* Scalarized dimension.  */
          gcc_assert (info && se->loop);
 
-          /* Multiply the loop variable by the stride and dela.  */
+          /* Multiply the loop variable by the stride and delta.  */
          index = se->loop->loopvar[i];
          index = fold (build2 (MULT_EXPR, gfc_array_index_type, index,
                                info->stride[i]));