diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-05-20 09:42:42 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-05-20 09:42:42 +0000 |
| commit | d3c268abbda900e9fd2202fb19154a186183a8e8 (patch) | |
| tree | 968063c6d6263a490823fbf54ece5f5c6d0ecb96 /gcc/ada/gcc-interface/utils.c | |
| parent | 4fe4de900d862ceb966a7a6f6d24b29fbbe5ff22 (diff) | |
| download | gcc-d3c268abbda900e9fd2202fb19154a186183a8e8.zip gcc-d3c268abbda900e9fd2202fb19154a186183a8e8.tar.gz gcc-d3c268abbda900e9fd2202fb19154a186183a8e8.tar.bz2 | |
utils.c (gnat_write_global_declarations): Put a name on the dummy global variable.
* gcc-interface/utils.c (gnat_write_global_declarations): Put a name
on the dummy global variable.
From-SVN: r187692
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index ce48020..36012a6 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5586,8 +5586,12 @@ gnat_write_global_declarations (void) if (!VEC_empty (tree, types_used_by_cur_var_decl)) { struct varpool_node *node; + char *label; + + ASM_FORMAT_PRIVATE_NAME (label, first_global_object_name, 0); dummy_global - = build_decl (BUILTINS_LOCATION, VAR_DECL, NULL_TREE, void_type_node); + = build_decl (BUILTINS_LOCATION, VAR_DECL, get_identifier (label), + void_type_node); TREE_STATIC (dummy_global) = 1; TREE_ASM_WRITTEN (dummy_global) = 1; node = varpool_node (dummy_global); |