TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 23:25:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

re PR ada/63310 (Ada bootstrap error with -fcompare-debug)

Browse Source 
PR ada/63310
	* gcc-interface/utils.c (gnat_write_global_declarations): Always
	build the dummy global variable if code was generated.

From-SVN: r225139
This commit is contained in:
Eric Botcazou
2015-06-29 17:45:34 +00:00
committed by Eric Botcazou
parent 94f11af109
commit 755c71faf3
2 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@@ -1,3 +1,9 @@
2015-06-29 Eric Botcazou <ebotcazou@adacore.com>
PR ada/63310
* gcc-interface/utils.c (gnat_write_global_declarations): Always
build the dummy global variable if code was generated.
2015-06-29 Manuel López-Ibáñez <manu@gcc.gnu.org>
PR fortran/66605

16
gcc/ada/gcc-interface/utils.c
View File

@@ -5202,8 +5202,9 @@ gnat_write_global_declarations (void)
tree iter;
/* If we have declared types as used at the global level, insert them in
the global hash table. We use a dummy variable for this purpose. */
if (types_used_by_cur_var_decl && !types_used_by_cur_var_decl->is_empty ())
the global hash table. We use a dummy variable for this purpose, but
we need to build it unconditionally to avoid -fcompare-debug issues. */
if (first_global_object_name)
{
struct varpool_node *node;
char *label;
@@ -5218,11 +5219,12 @@ gnat_write_global_declarations (void)
node->definition = 1;
node->force_output = 1;
while (!types_used_by_cur_var_decl->is_empty ())
{
tree t = types_used_by_cur_var_decl->pop ();
types_used_by_var_decl_insert (t, dummy_global);
}
if (types_used_by_cur_var_decl)
while (!types_used_by_cur_var_decl->is_empty ())
{
tree t = types_used_by_cur_var_decl->pop ();
types_used_by_var_decl_insert (t, dummy_global);
}
}
/* Output debug information for all global type declarations first. This