From ae51017be07799ddc5570cb7b8697539743b6763 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= 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 344966358fa..7801c65b3fa 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; -- 2.30.2