diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-07-22 08:28:10 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2009-07-22 08:28:10 +0000 |
| commit | 43ce5e5260d0e439a7a4896625e7c3e7c4464bce (patch) | |
| tree | d439f8e07f4d1a4a04ae402b44515f9bdf363d9a /gcc/fortran/trans-common.c | |
| parent | 4fe6dea8ffc4ca9e1d502c29f0148c4a2c90ba07 (diff) | |
| download | gcc-43ce5e5260d0e439a7a4896625e7c3e7c4464bce.zip gcc-43ce5e5260d0e439a7a4896625e7c3e7c4464bce.tar.gz gcc-43ce5e5260d0e439a7a4896625e7c3e7c4464bce.tar.bz2 | |
trans.h (gfc_set_decl_assembler_name): New prototype.
* trans.h (gfc_set_decl_assembler_name): New prototype.
* trans-decl.c (gfc_set_decl_assembler_name): New function.
(gfc_get_symbol_decl, gfc_get_extern_function_decl,
build_function_decl): Use gfc_set_decl_assembler_name instead of
SET_DECL_ASSEMBLER_NAME.
* trans-common.c (build_common_decl): Use
gfc_set_decl_assembler_name instead of SET_DECL_ASSEMBLER_NAME.
From-SVN: r149918
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index f4bbb46..ca94567 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -415,7 +415,7 @@ build_common_decl (gfc_common_head *com, tree union_type, bool is_init) { decl = build_decl (input_location, VAR_DECL, get_identifier (com->name), union_type); - SET_DECL_ASSEMBLER_NAME (decl, gfc_sym_mangled_common_id (com)); + gfc_set_decl_assembler_name (decl, gfc_sym_mangled_common_id (com)); TREE_PUBLIC (decl) = 1; TREE_STATIC (decl) = 1; DECL_IGNORED_P (decl) = 1; |