decl.c (gnat_to_gnu_entity): If processing a definition...

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Function>: If
	processing a definition, create definitions for padding types
	around return types.

From-SVN: r224121

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a47a949895fdafc60e4fa2ec76cefaa87ac116a0..c71731f35a4dbbdbf0b0c23e498531d5b47ffc49 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2015-06-04  Pierre-Marie de Rodat  <derodat@adacore.com>
+
+       * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Function>: If
+       processing a definition, create definitions for padding types
+       around return types.
+
 2015-06-03  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/utils.c (copy_type): Also set TYPE_CANONICAL.

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index dd2b06f948919cf456dabf1f1160876e96a9c056..5eaab17b6e8a61756f291fcd5881bc3b178f0ec9 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -4252,7 +4252,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
                  = maybe_pad_type (gnu_return_type,
                                    max_size (TYPE_SIZE (gnu_return_type),
                                              true),
-                                   0, gnat_entity, false, false, false, true);
+                                   0, gnat_entity, false, false, definition,
+                                   true);
 
                /* Declare it now since it will never be declared otherwise.
                   This is necessary to ensure that its subtrees are properly