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:
parent
77270e03c3
commit
69de3b838f
|
@ -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>
|
2005-03-29 Steven G. Kargl <kargls@comcast.net>
|
||||||
|
|
||||||
* gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,
|
* gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,
|
||||||
|
|
|
@ -401,7 +401,7 @@ match_old_style_init (const char *name)
|
||||||
/* Match the stuff following a DATA statement. If ERROR_FLAG is set,
|
/* Match the stuff following a DATA statement. If ERROR_FLAG is set,
|
||||||
we are matching a DATA statement and are therefore issuing an error
|
we are matching a DATA statement and are therefore issuing an error
|
||||||
if we encounter something unexpected, if not, we're trying to match
|
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
|
match
|
||||||
gfc_match_data (void)
|
gfc_match_data (void)
|
||||||
|
@ -896,7 +896,7 @@ variable_decl (void)
|
||||||
|
|
||||||
/* OK, we've successfully matched the declaration. Now put the
|
/* OK, we've successfully matched the declaration. Now put the
|
||||||
symbol in the current namespace, because it might be used in 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:
|
perfectly legal:
|
||||||
|
|
||||||
integer, parameter :: i = huge(i)
|
integer, parameter :: i = huge(i)
|
||||||
|
|
|
@ -504,7 +504,7 @@ pushdecl (tree decl)
|
||||||
TREE_CHAIN (decl) = current_binding_level->names;
|
TREE_CHAIN (decl) = current_binding_level->names;
|
||||||
current_binding_level->names = decl;
|
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)
|
if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0)
|
||||||
{
|
{
|
||||||
|
|
|
@ -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.
|
/* 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.
|
otherwise.
|
||||||
|
|
||||||
This test is also not symmetric in f1 and f2 and must be called
|
This test is also not symmetric in f1 and f2 and must be called
|
||||||
|
|
|
@ -1280,7 +1280,7 @@ mio_name (int t, const mstring * m)
|
||||||
return t;
|
return t;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Specialisation of mio_name. */
|
/* Specialization of mio_name. */
|
||||||
|
|
||||||
#define DECL_MIO_NAME(TYPE) \
|
#define DECL_MIO_NAME(TYPE) \
|
||||||
static inline TYPE \
|
static inline TYPE \
|
||||||
|
@ -1424,7 +1424,7 @@ static const mstring attr_bits[] =
|
||||||
minit (NULL, -1)
|
minit (NULL, -1)
|
||||||
};
|
};
|
||||||
|
|
||||||
/* Specialisation of mio_name. */
|
/* Specialization of mio_name. */
|
||||||
DECL_MIO_NAME(ab_attribute)
|
DECL_MIO_NAME(ab_attribute)
|
||||||
DECL_MIO_NAME(ar_type)
|
DECL_MIO_NAME(ar_type)
|
||||||
DECL_MIO_NAME(array_type)
|
DECL_MIO_NAME(array_type)
|
||||||
|
|
|
@ -2435,7 +2435,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info)
|
||||||
case EXEC_ASSIGN:
|
case EXEC_ASSIGN:
|
||||||
/* A scalar or array assignment. */
|
/* A scalar or array assignment. */
|
||||||
need_temp = gfc_check_dependency (c->expr, c->expr2, varexpr, nvar);
|
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. */
|
no end of problems. */
|
||||||
if (need_temp)
|
if (need_temp)
|
||||||
gfc_trans_assign_need_temp (c->expr, c->expr2, NULL,
|
gfc_trans_assign_need_temp (c->expr, c->expr2, NULL,
|
||||||
|
|
|
@ -272,7 +272,7 @@ void gfc_conv_string_parameter (gfc_se * se);
|
||||||
tree gfc_chainon_list (tree, tree);
|
tree gfc_chainon_list (tree, tree);
|
||||||
|
|
||||||
/* When using the gfc_conv_* make sure you understand what they do, i.e.
|
/* 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
|
used for. Note that character strings have special handling. This
|
||||||
should not be a problem as most statements/operations only deal with
|
should not be a problem as most statements/operations only deal with
|
||||||
numeric/logical types. */
|
numeric/logical types. */
|
||||||
|
@ -332,7 +332,7 @@ void gfc_add_modify_expr (stmtblock_t *, tree, tree);
|
||||||
|
|
||||||
/* Initialize a statement block. */
|
/* Initialize a statement block. */
|
||||||
void gfc_init_block (stmtblock_t *);
|
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. */
|
variable scope. */
|
||||||
void gfc_start_block (stmtblock_t *);
|
void gfc_start_block (stmtblock_t *);
|
||||||
/* Finish a statement block. Also closes the scope if the block was created
|
/* 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. */
|
/* Returns true if a variable of specified size should go on the stack. */
|
||||||
int gfc_can_put_var_on_stack (tree);
|
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);
|
void gfc_allocate_lang_decl (tree);
|
||||||
|
|
||||||
/* Advance along a TREE_CHAIN. */
|
/* Advance along a TREE_CHAIN. */
|
||||||
|
|
Loading…
Reference in New Issue