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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c29b5ad0ff7ce09f136e3acb2fc513efcc8d86a7..13e4df3c372d3daa22b1c59db13d5492119c02c2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index cc6f874c5fc3eb19502ae5feeba68ebffca5488e..4f39dd6adbc5674ee42ee7c5e49fb8882130570f 100644 (file)
--- 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 ())