From 472ca416af9f5457ace9b237eccc08f175a07b29 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Wed, 19 May 2004 01:37:47 +0200 Subject: [PATCH] * trans.c, trans-decl.c: Fix comment typos. From-SVN: r82008 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-decl.c | 10 +++++----- gcc/fortran/trans.c | 6 +++--- 3 files changed, 12 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a5a1f4b21e9..0ee8fbee305 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-05-18 Tobias Schlueter + + * trans.c, trans-decl.c: Fix comment typos. + 2004-05-18 Tobias Schlueter * trans-const.c (gfc_conv_mpf_to_tree): Fix typo. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e4f564cbf67..b5f3508684c 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 267391c1c38..6a42b03935e 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) -- 2.30.2