From ae51017be07799ddc5570cb7b8697539743b6763 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= <tobi@gcc.gnu.org>
Date: Tue, 24 Aug 2004 18:43:26 +0200
Subject: [PATCH] trans-decl.c (build_function_decl): Fix spelling in comment.
* trans-decl.c (build_function_decl): Fix spelling in comment.
(build_entry_thunks): Remove code with no function.
(gfc_build_intrinsic_function_decls): Remove empty line.
From-SVN: r86494
---
gcc/fortran/trans-decl.c | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 344966358fa1..7801c65b3fa3 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1050,7 +1050,7 @@ build_function_decl (gfc_symbol * sym)
DECL_CONTEXT (fndecl) = current_function_decl;
DECL_EXTERNAL (fndecl) = 0;
- /* This specifies if a function is globaly visible, i.e. it is
+ /* This specifies if a function is globally visible, i.e. it is
the opposite of declaring static in C. */
if (DECL_CONTEXT (fndecl) == NULL_TREE
&& !sym->attr.entry_master)
@@ -1335,11 +1335,6 @@ build_entry_thunks (gfc_namespace * ns)
/* This should always be a toplevel function. */
assert (current_function_decl == NULL_TREE);
- /* Remember the master function argument decls. */
- for (formal = ns->proc_name->formal; formal; formal = formal->next)
- {
- }
-
for (el = ns->entries; el; el = el->next)
{
thunk_sym = el->sym;
@@ -1661,7 +1656,6 @@ gfc_build_intrinsic_function_decls (void)
2, pvoid_type_node,
pvoid_type_node);
-
/* Power functions. */
{
tree type;
--
GitLab