mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-21 14:30:14 +08:00
Code Issues Packages Projects Releases Wiki Activity

utils.c (gnat_write_global_declarations): Put a name on the dummy global variable.

Browse Source 
* gcc-interface/utils.c (gnat_write_global_declarations): Put a name
	on the dummy global variable.

From-SVN: r187692
This commit is contained in:
Eric Botcazou 2012-05-20 09:42:42 +00:00 committed by Eric Botcazou
parent 4fe4de900d
commit d3c268abbd
6 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2012-05-20 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (gnat_write_global_declarations): Put a name
on the dummy global variable.
2012-05-19 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (Has_Thiscall_Convention): New macro.

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

@ -5586,8 +5586,12 @@ gnat_write_global_declarations (void)
if (!VEC_empty (tree, types_used_by_cur_var_decl))
{
struct varpool_node *node;
char *label;
ASM_FORMAT_PRIVATE_NAME (label, first_global_object_name, 0);
dummy_global
= build_decl (BUILTINS_LOCATION, VAR_DECL, NULL_TREE, void_type_node);
= build_decl (BUILTINS_LOCATION, VAR_DECL, get_identifier (label),
void_type_node);
TREE_STATIC (dummy_global) = 1;
TREE_ASM_WRITTEN (dummy_global) = 1;
node = varpool_node (dummy_global);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2012-05-20 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/lto13.adb: New test.
* gnat.dg/lto13_pkg.ad[sb]: New helper.
2012-05-18 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/specs/lto12.ads: New test.

9
gcc/testsuite/gnat.dg/lto13.adb Normal file
View File

@ -0,0 +1,9 @@
-- { dg-do link }
-- { dg-options "-g -flto" { target lto } }
with Lto13_Pkg; use Lto13_Pkg;
procedure Lto13 is
begin
Proc;
end;

10
gcc/testsuite/gnat.dg/lto13_pkg.adb Normal file
View File

@ -0,0 +1,10 @@
package body Lto13_Pkg is
procedure Proc is
begin
raise Constraint_Error;
end;
type T is null record;
end Lto13_Pkg;

9
gcc/testsuite/gnat.dg/lto13_pkg.ads Normal file
View File

@ -0,0 +1,9 @@
package Lto13_Pkg is
procedure Proc;
private
type T;
end Lto13_Pkg;