decl.c (gnat_to_gnu_entity): Do not generate the special PARM_DECL for an Out paramet...

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Out_Parameter>: Do not
	generate the special PARM_DECL for an Out parameter in LTO mode.

From-SVN: r192667

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 93162909e49c70bf5a56fdc20b964a9a8899e4a6..30428c6ce3253b7de9694c13ea51b6e1529613f3 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Out_Parameter>: Do not
+       generate the special PARM_DECL for an Out parameter in LTO mode.
+
 2012-10-22  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR bootstrap/54820

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 3935bb33e054a9ded98b170a0b67d85abfb4050f..cb40ee68d509c82713e2408e5048bdd9971663c9 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1503,7 +1503,11 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
           the VAR_DECL.  Suppress debug info for the latter but make sure it
           will live on the stack so that it can be accessed from within the
           debugger through the PARM_DECL.  */
-       if (kind == E_Out_Parameter && definition && !optimize && debug_info_p)
+       if (kind == E_Out_Parameter
+           && definition
+           && debug_info_p
+           && !optimize
+           && !flag_generate_lto)
          {
            tree param = create_param_decl (gnu_entity_name, gnu_type, false);
            gnat_pushdecl (param, gnat_entity);