This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch] fortran/*.[ch]: Fix comment typos.
- From: Kazu Hirata <kazu at cs dot umass dot edu>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Thu, 31 Mar 2005 23:16:36 -0500 (EST)
- Subject: [patch] fortran/*.[ch]: Fix comment typos.
Hi,
Committed as obvious.
Kazu Hirata
2005-04-01 Kazu Hirata <kazu@cs.umass.edu>
* decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c,
trans.h: Fix comment typos.
Index: fortran/decl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/decl.c,v
retrieving revision 1.32
diff -u -d -p -r1.32 decl.c
--- fortran/decl.c 12 Mar 2005 02:06:20 -0000 1.32
+++ fortran/decl.c 1 Apr 2005 04:12:59 -0000
@@ -401,7 +401,7 @@ match_old_style_init (const char *name)
/* Match the stuff following a DATA statement. If ERROR_FLAG is set,
we are matching a DATA statement and are therefore issuing an error
if we encounter something unexpected, if not, we're trying to match
- an old-style intialization expression of the form INTEGER I /2/. */
+ an old-style initialization expression of the form INTEGER I /2/. */
match
gfc_match_data (void)
@@ -896,7 +896,7 @@ variable_decl (void)
/* OK, we've successfully matched the declaration. Now put the
symbol in the current namespace, because it might be used in the
- optional intialization expression for this symbol, e.g. this is
+ optional initialization expression for this symbol, e.g. this is
perfectly legal:
integer, parameter :: i = huge(i)
Index: fortran/f95-lang.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/f95-lang.c,v
retrieving revision 1.33
diff -u -d -p -r1.33 f95-lang.c
--- fortran/f95-lang.c 29 Mar 2005 16:10:10 -0000 1.33
+++ fortran/f95-lang.c 1 Apr 2005 04:12:59 -0000
@@ -504,7 +504,7 @@ pushdecl (tree decl)
TREE_CHAIN (decl) = current_binding_level->names;
current_binding_level->names = decl;
- /* For the declartion of a type, set its name if it is not already set. */
+ /* For the declaration of a type, set its name if it is not already set. */
if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0)
{
Index: fortran/interface.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/interface.c,v
retrieving revision 1.15
diff -u -d -p -r1.15 interface.c
--- fortran/interface.c 24 Feb 2005 18:26:26 -0000 1.15
+++ fortran/interface.c 1 Apr 2005 04:13:00 -0000
@@ -763,7 +763,7 @@ operator_correspondence (gfc_formal_argl
/* Perform the correspondence test in rule 2 of section 14.1.2.3.
- Returns zero if no argument is found that satisifes rule 2, nonzero
+ Returns zero if no argument is found that satisfies rule 2, nonzero
otherwise.
This test is also not symmetric in f1 and f2 and must be called
Index: fortran/module.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/module.c,v
retrieving revision 1.31
diff -u -d -p -r1.31 module.c
--- fortran/module.c 24 Feb 2005 18:26:26 -0000 1.31
+++ fortran/module.c 1 Apr 2005 04:13:03 -0000
@@ -1280,7 +1280,7 @@ mio_name (int t, const mstring * m)
return t;
}
-/* Specialisation of mio_name. */
+/* Specialization of mio_name. */
#define DECL_MIO_NAME(TYPE) \
static inline TYPE \
@@ -1424,7 +1424,7 @@ static const mstring attr_bits[] =
minit (NULL, -1)
};
-/* Specialisation of mio_name. */
+/* Specialization of mio_name. */
DECL_MIO_NAME(ab_attribute)
DECL_MIO_NAME(ar_type)
DECL_MIO_NAME(array_type)
Index: fortran/trans-stmt.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-stmt.c,v
retrieving revision 1.27
diff -u -d -p -r1.27 trans-stmt.c
--- fortran/trans-stmt.c 23 Mar 2005 11:09:24 -0000 1.27
+++ fortran/trans-stmt.c 1 Apr 2005 04:13:06 -0000
@@ -2435,7 +2435,7 @@ gfc_trans_forall_1 (gfc_code * code, for
case EXEC_ASSIGN:
/* A scalar or array assignment. */
need_temp = gfc_check_dependency (c->expr, c->expr2, varexpr, nvar);
- /* Teporaries due to array assignment data dependencies introduce
+ /* Temporaries due to array assignment data dependencies introduce
no end of problems. */
if (need_temp)
gfc_trans_assign_need_temp (c->expr, c->expr2, NULL,
Index: fortran/trans.h
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans.h,v
retrieving revision 1.25
diff -u -d -p -r1.25 trans.h
--- fortran/trans.h 15 Mar 2005 02:52:38 -0000 1.25
+++ fortran/trans.h 1 Apr 2005 04:13:06 -0000
@@ -272,7 +272,7 @@ void gfc_conv_string_parameter (gfc_se *
tree gfc_chainon_list (tree, tree);
/* When using the gfc_conv_* make sure you understand what they do, i.e.
- when a POST chain may be created, and what the retured expression may be
+ when a POST chain may be created, and what the returned expression may be
used for. Note that character strings have special handling. This
should not be a problem as most statements/operations only deal with
numeric/logical types. */
@@ -332,7 +332,7 @@ void gfc_add_modify_expr (stmtblock_t *,
/* Initialize a statement block. */
void gfc_init_block (stmtblock_t *);
-/* Start a new satement block. Like gfc_init_block but also starts a new
+/* Start a new statement block. Like gfc_init_block but also starts a new
variable scope. */
void gfc_start_block (stmtblock_t *);
/* Finish a statement block. Also closes the scope if the block was created
@@ -396,7 +396,7 @@ void gfc_restore_sym (gfc_symbol *, gfc_
/* Returns true if a variable of specified size should go on the stack. */
int gfc_can_put_var_on_stack (tree);
-/* Allocate the lang-spcific part of a decl node. */
+/* Allocate the lang-specific part of a decl node. */
void gfc_allocate_lang_decl (tree);
/* Advance along a TREE_CHAIN. */