OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Pierre-Marie de Rodat 2015-06-04 10:38:17 +00:00 committed by Eric Botcazou
parent e7f40208e1
commit 3e7e725b26
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -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.

3
gcc/ada/gcc-interface/decl.c
View File

@ -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