From dd25fe0a4bfad9fe6017e432ae741e549a77e0a5 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 18 May 2014 21:08:14 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/utils.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c29b5ad0ff7..13e4df3c372 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2014-05-18 Eric Botcazou + + * utils.c (gnat_write_global_declarations): Adjust the flags put on + dummy_global. + 2014-05-18 Eric Botcazou * gcc-interface/decl.c (change_qualified_type): New static function. diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index cc6f874c5fc..4f39dd6adbc 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 ())