diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-19 01:37:47 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-05-19 01:37:47 +0200 |
| commit | 472ca416af9f5457ace9b237eccc08f175a07b29 (patch) | |
| tree | 0ed42e8bd6c75d959fff4fd5b08fc61114a859fd /gcc/fortran | |
| parent | d7981fd95fde4396a5d774be8db49708ef68b86d (diff) | |
| download | gcc-472ca416af9f5457ace9b237eccc08f175a07b29.zip gcc-472ca416af9f5457ace9b237eccc08f175a07b29.tar.gz gcc-472ca416af9f5457ace9b237eccc08f175a07b29.tar.bz2 | |
* trans.c, trans-decl.c: Fix comment typos.
From-SVN: r82008
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 10 | ||||
| -rw-r--r-- | gcc/fortran/trans.c | 6 |
3 files changed, 12 insertions, 8 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a5a1f4b..0ee8fbe 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 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. 2004-05-18 Steve Kargl <kargls@comcast.net> diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e4f564c..b5f3508 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -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); } diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 267391c..6a42b03 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -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) |