From b1049e7ce964a1ecf4a10d7e7e98090606bc1edf Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Thu, 4 Jun 2015 10:38:17 +0000 Subject: [PATCH] * gcc-interface/decl.c (gnat_to_gnu_entity) : If processing a definition, create definitions for padding types around return types. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@224121 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/gcc-interface/decl.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a47a949895fd..c71731f35a4d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2015-06-04 Pierre-Marie de Rodat + + * gcc-interface/decl.c (gnat_to_gnu_entity) : If + processing a definition, create definitions for padding types + around return types. + 2015-06-03 Eric Botcazou * 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 dd2b06f94891..5eaab17b6e8a 100644 --- 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 -- 2.47.2