From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 20 May 2012 09:42:42 +0000 (+0000)
Subject: utils.c (gnat_write_global_declarations): Put a name on the dummy global variable.
X-Git-Tag: misc/gccgo-go1_1_2~2806
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d3c268abbda900e9fd2202fb19154a186183a8e8;p=thirdparty%2Fgcc.git

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

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

From-SVN: r187692
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 096225a3b80f..744f6eb89b9a 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index ce480208f997..36012a6ed91f 100644
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -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);
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 697090fb1510..0e4edf5ca2e9 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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.
diff --git a/gcc/testsuite/gnat.dg/lto13.adb b/gcc/testsuite/gnat.dg/lto13.adb
new file mode 100644
index 000000000000..7c7fe16043fd
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13.adb
@@ -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;
diff --git a/gcc/testsuite/gnat.dg/lto13_pkg.adb b/gcc/testsuite/gnat.dg/lto13_pkg.adb
new file mode 100644
index 000000000000..f8b5057a15e8
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13_pkg.adb
@@ -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;
diff --git a/gcc/testsuite/gnat.dg/lto13_pkg.ads b/gcc/testsuite/gnat.dg/lto13_pkg.ads
new file mode 100644
index 000000000000..ce91d1c018c7
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/lto13_pkg.ads
@@ -0,0 +1,9 @@
+package Lto13_Pkg is
+
+  procedure Proc;
+
+private
+
+  type T;
+
+end Lto13_Pkg;