OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

decl.c, [...]: Fix comment typos. 

* decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c,
	trans.h: Fix comment typos.

From-SVN: r97364
This commit is contained in:
Kazu Hirata 2005-04-01 04:16:52 +00:00 committed by Kazu Hirata
parent 77270e03c3
commit 69de3b838f
7 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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.
2005-03-29 Steven G. Kargl <kargls@comcast.net>
* gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,

4
gcc/fortran/decl.c
View File

@ -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)

2
gcc/fortran/f95-lang.c
View File

@ -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)
{

2
gcc/fortran/interface.c
View File

@ -763,7 +763,7 @@ operator_correspondence (gfc_formal_arglist * f1, gfc_formal_arglist * f2)
/* 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

4
gcc/fortran/module.c
View File

@ -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)

2
gcc/fortran/trans-stmt.c
View File

@ -2435,7 +2435,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info)
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,

6
gcc/fortran/trans.h
View File

@ -272,7 +272,7 @@ void gfc_conv_string_parameter (gfc_se * 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 *, tree, tree);
/* 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_saved_var *);
/* 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. */