diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-05-18 21:08:14 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-05-18 21:08:14 +0000 |
| commit | dd25fe0a4bfad9fe6017e432ae741e549a77e0a5 (patch) | |
| tree | eff9f229914416023812d8dd1e6762e4b0891568 /gcc/ada/gcc-interface/utils.c | |
| parent | 4aecc2f8e416fc1e77147f5f0084443fa4eb566e (diff) | |
| download | gcc-dd25fe0a4bfad9fe6017e432ae741e549a77e0a5.zip gcc-dd25fe0a4bfad9fe6017e432ae741e549a77e0a5.tar.gz gcc-dd25fe0a4bfad9fe6017e432ae741e549a77e0a5.tar.bz2 | |
utils.c (gnat_write_global_declarations): Adjust the flags put on dummy_global.
* utils.c (gnat_write_global_declarations): Adjust the flags put on
dummy_global.
From-SVN: r210589
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index cc6f874..4f39dd6 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5756,9 +5756,10 @@ gnat_write_global_declarations (void) dummy_global = build_decl (BUILTINS_LOCATION, VAR_DECL, get_identifier (label), void_type_node); + DECL_HARD_REGISTER (dummy_global) = 1; TREE_STATIC (dummy_global) = 1; - TREE_ASM_WRITTEN (dummy_global) = 1; node = varpool_node_for_decl (dummy_global); + node->definition = 1; node->force_output = 1; while (!types_used_by_cur_var_decl->is_empty ()) |