diff options
| author | Geoffrey Keating <geoffk@apple.com> | 2004-08-05 05:52:01 +0000 |
|---|---|---|
| committer | Geoffrey Keating <geoffk@gcc.gnu.org> | 2004-08-05 05:52:01 +0000 |
| commit | 0e6df31e198fd8c0ab0daacc631de05365c2c216 (patch) | |
| tree | dd22110790902e6a0fb0065c11210552323ea19e /gcc/fortran/trans-decl.c | |
| parent | 99b1c586a59f235bb36457739f40ffe98fb18b66 (diff) | |
| download | gcc-0e6df31e198fd8c0ab0daacc631de05365c2c216.zip gcc-0e6df31e198fd8c0ab0daacc631de05365c2c216.tar.gz gcc-0e6df31e198fd8c0ab0daacc631de05365c2c216.tar.bz2 | |
re PR c/14516 (-fleading-underscore does not work correctly for file static variables)
2004-08-04 Geoffrey Keating <geoffk@apple.com>
PR 14516
* c-common.c (c_expand_decl): Don't special-case static VAR_DECLs.
* c-common.h (make_rtl_for_local_static): Delete.
* c-decl.c (shadow_tag_warned): Clean up comment.
(finish_decl): Clean up spacing. Use set_user_assembler_name when
appropriate. Don't pass asmspec to rest_of_decl_compilation.
* c-semantics.c (make_rtl_for_local_static): Delete.
* expr.c (init_block_move_fn): Use set_user_assembler_name.
(init_block_clear_fn): Likewise.
* passes.c (rest_of_decl_compilation): Remove asmspec parameter,
expect it to be in DECL_ASSEMBLER_NAME. Update callers in many files.
* toplev.h (rest_of_decl_compilation): Remove asmspec parameter.
* tree.h (make_decl_rtl): Remove second parameter.
(set_user_assembler_name): New.
* varasm.c (set_user_assembler_name): New.
(make_decl_rtl): Remove second parameter. Update callers in many
files.
Index: cp/ChangeLog
2004-08-04 Geoffrey Keating <geoffk@apple.com>
* decl.c (make_rtl_for_nonlocal_decl): Set DECL_ASSEMBLER_NAME rather
than passing it as a parameter to rest_of_decl_compilation.
* decl2.c (grokfield): Use set_user_assembler_name.
From-SVN: r85593
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 7883bde..5c68cb5 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1318,7 +1318,7 @@ gfc_build_library_function_decl (tree name, tree rettype, int nargs, ...) pushdecl (fndecl); - rest_of_decl_compilation (fndecl, NULL, 1, 0); + rest_of_decl_compilation (fndecl, 1, 0); return fndecl; } @@ -1802,7 +1802,7 @@ gfc_create_module_variable (gfc_symbol * sym) /* Create the variable. */ pushdecl (decl); - rest_of_decl_compilation (decl, NULL, 1, 0); + rest_of_decl_compilation (decl, 1, 0); /* Also add length of strings. */ if (sym->ts.type == BT_CHARACTER) @@ -1813,7 +1813,7 @@ gfc_create_module_variable (gfc_symbol * sym) if (!INTEGER_CST_P (length)) { pushdecl (length); - rest_of_decl_compilation (length, NULL, 1, 0); + rest_of_decl_compilation (length, 1, 0); } } } @@ -1969,11 +1969,11 @@ gfc_generate_function_code (gfc_namespace * ns) if (DECL_CONTEXT (fndecl) == NULL_TREE) { /* create RTL for function declaration */ - rest_of_decl_compilation (fndecl, NULL, 1, 0); + rest_of_decl_compilation (fndecl, 1, 0); } /* create RTL for function definition */ - make_decl_rtl (fndecl, NULL); + make_decl_rtl (fndecl); /* Set the line and filename. sym->decalred_at seems to point to the last statement for subroutines, but it'll do for now. */ @@ -2135,9 +2135,9 @@ gfc_generate_constructors (void) current_function_decl = fndecl; - rest_of_decl_compilation (fndecl, NULL, 1, 0); + rest_of_decl_compilation (fndecl, 1, 0); - make_decl_rtl (fndecl, NULL); + make_decl_rtl (fndecl); init_function_start (fndecl, input_filename, input_line); |