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
This commit is contained in:
Eric Botcazou 2014-05-18 21:08:14 +00:00 committed by Eric Botcazou
parent 4aecc2f8e4
commit dd25fe0a4b
2 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2014-05-18 Eric Botcazou <ebotcazou@adacore.com>
* utils.c (gnat_write_global_declarations): Adjust the flags put on
dummy_global.
2014-05-18 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (change_qualified_type): New static function.

View File

@ -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 ())