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

* trans.c, trans-decl.c: Fix comment typos.

Browse Source 
From-SVN: r82008
This commit is contained in:
Tobias Schlüter 2004-05-19 01:37:47 +02:00 committed by Tobias Schlüter
parent d7981fd95f
commit 472ca416af
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans.c, trans-decl.c: Fix comment typos.
2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans-const.c (gfc_conv_mpf_to_tree): Fix typo.

10
gcc/fortran/trans-decl.c
View File

@ -1048,7 +1048,7 @@ gfc_build_function_decl (gfc_symbol * sym)
DECL_EXTERNAL (fndecl) = 0;
/* This specifies if a function is globaly addressable, ie. it is
the opposite of decalring static in C. */
the opposite of declaring static in C. */
if (DECL_CONTEXT (fndecl) == NULL_TREE || attr.external)
TREE_PUBLIC (fndecl) = 1;
@ -1094,7 +1094,7 @@ gfc_build_function_decl (gfc_symbol * sym)
{
gfc_allocate_lang_decl (parm);
/* Length of character result */
/* Length of character result. */
type = TREE_VALUE (typelist);
assert (type == gfc_strlen_type_node);
@ -1795,10 +1795,10 @@ gfc_generate_module_vars (gfc_namespace * ns)
{
module_namespace = ns;
/* Check the frontend left the namespace in a reasonable state. */
/* Check if the frontend left the namespace in a reasonable state. */
assert (ns->proc_name && !ns->proc_name->tlink);
/* Create decls for all the module varuiables. */
/* Create decls for all the module variables. */
gfc_traverse_ns (ns, gfc_create_module_variable);
}
@ -1856,7 +1856,7 @@ generate_local_decl (gfc_symbol * sym)
warning ("unused parameter `%s'", sym->name);
}
/* warn for unused variables, but not if they're inside a common
block. */
block. */
else if (warn_unused_variable && !sym->attr.in_common)
warning ("unused variable `%s'", sym->name);
}

6
gcc/fortran/trans.c
View File

@ -366,7 +366,7 @@ gfc_trans_runtime_check (tree cond, tree msg, stmtblock_t * pblock)
}
else
{
/* Tell the compiler that this isn't likley. */
/* Tell the compiler that this isn't likely. */
tmp = gfc_chainon_list (NULL_TREE, cond);
tmp = gfc_chainon_list (tmp, integer_zero_node);
cond = gfc_build_function_call (built_in_decls[BUILT_IN_EXPECT], tmp);
@ -377,7 +377,7 @@ gfc_trans_runtime_check (tree cond, tree msg, stmtblock_t * pblock)
}
/* Add a statement to a bock. */
/* Add a statement to a block. */
void
gfc_add_expr_to_block (stmtblock_t * block, tree expr)
@ -409,7 +409,7 @@ gfc_add_block_to_block (stmtblock_t * block, stmtblock_t * append)
/* Get the current locus. The structure may not be complete, and should
only be used with gfc_set_current_locus. */
only be used with gfc_set_backend_locus. */
void
gfc_get_backend_locus (locus * loc)