diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-24 18:43:26 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-24 18:43:26 +0200 |
| commit | ae51017be07799ddc5570cb7b8697539743b6763 (patch) | |
| tree | 62b6de29918a0a2b343bd561ecc3300c97b066fc /gcc/fortran/trans-decl.c | |
| parent | 8c1d6d62a680bf67cb921c550662306b4cb3a67b (diff) | |
| download | gcc-ae51017be07799ddc5570cb7b8697539743b6763.zip gcc-ae51017be07799ddc5570cb7b8697539743b6763.tar.gz gcc-ae51017be07799ddc5570cb7b8697539743b6763.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 3449663..7801c65 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; |