diff options
| author | Richard Henderson <rth@redhat.com> | 2004-06-30 18:12:19 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-06-30 18:12:19 -0700 |
| commit | 4025c040c5d5676e50b8a46d8c3820feb7f55fd8 (patch) | |
| tree | 0acb30dc1fe30a10aa0f49858ffea3a987341bb4 /gcc/fortran/trans-decl.c | |
| parent | 6a0bec2ce1817d8cb78a4a9c1729855382d412cd (diff) | |
| download | gcc-4025c040c5d5676e50b8a46d8c3820feb7f55fd8.zip gcc-4025c040c5d5676e50b8a46d8c3820feb7f55fd8.tar.gz gcc-4025c040c5d5676e50b8a46d8c3820feb7f55fd8.tar.bz2 | |
function.h (struct function): Remove x_whole_function_mode_p.
* function.h (struct function): Remove x_whole_function_mode_p.
* c-decl.c (store_parm_decls): Don't set it.
* tree-optimize.c (tree_rest_of_compilation): Likewise.
* passes.c (rest_of_compilation): Don't check it.
* stmt.c (expand_fixup): Likewise.
* function.c (fixup_var_refs_insn): Remove unused variable.
fortran/
* trans-decl.c (gfc_generate_function_code): Don't set
x_whole_function_mode_p.
(gfc_generate_constructors): Likewise.
From-SVN: r83947
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 0b09555..480a8be 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2028,9 +2028,6 @@ gfc_generate_function_code (gfc_namespace * ns) /* line and file should not be 0 */ init_function_start (fndecl); - /* We're in function-at-a-time mode. */ - cfun->x_whole_function_mode_p = 1; - /* Even though we're inside a function body, we still don't want to call expand_expr to calculate the size of a variable-sized array. We haven't necessarily assigned RTL to all variables yet, so it's @@ -2188,8 +2185,6 @@ gfc_generate_constructors (void) init_function_start (fndecl, input_filename, input_line); - cfun->x_whole_function_mode_p = 1; - pushlevel (0); for (; gfc_static_ctors; gfc_static_ctors = TREE_CHAIN (gfc_static_ctors)) |