diff options
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)) |