This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran, committed] Typo fixes to trans-array.c
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 17 Mar 2005 22:43:17 +0100
- Subject: [gfortran, committed] Typo fixes to trans-array.c
A few comment typos and a formatting issue.
I verified that the compielr still builds, and committed this to the mainline
under the obviously correct rule.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.356
diff -u -p -r1.356 ChangeLog
--- ChangeLog 16 Mar 2005 06:03:52 -0000 1.356
+++ ChangeLog 17 Mar 2005 21:41:03 -0000
@@ -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-15 Zack Weinberg <zack@codesourcery.com>
* Make-lang.in (GFORTRAN_TEXI): Add gcc-vers.texi.
Index: trans-array.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-array.c,v
retrieving revision 1.40
diff -u -p -r1.40 trans-array.c
--- trans-array.c 12 Mar 2005 21:44:32 -0000 1.40
+++ trans-array.c 17 Mar 2005 21:41:04 -0000
@@ -391,7 +391,7 @@ gfc_trans_static_array_pointer (gfc_symb
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 * ex
switch (ref->type)
{
case REF_ARRAY:
- /* Array references don't change teh sting length. */
+ /* Array references don't change the sting length. */
break;
case COMPONENT_REF:
@@ -1526,7 +1526,7 @@ gfc_conv_array_index_offset (gfc_se * se
/* 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]));