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:
parent
e7f40208e1
commit
3e7e725b26
|
@ -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>
|
2015-06-03 Eric Botcazou <ebotcazou@adacore.com>
|
||||||
|
|
||||||
* gcc-interface/utils.c (copy_type): Also set TYPE_CANONICAL.
|
* gcc-interface/utils.c (copy_type): Also set TYPE_CANONICAL.
|
||||||
|
|
|
@ -4252,7 +4252,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
|
||||||
= maybe_pad_type (gnu_return_type,
|
= maybe_pad_type (gnu_return_type,
|
||||||
max_size (TYPE_SIZE (gnu_return_type),
|
max_size (TYPE_SIZE (gnu_return_type),
|
||||||
true),
|
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.
|
/* Declare it now since it will never be declared otherwise.
|
||||||
This is necessary to ensure that its subtrees are properly
|
This is necessary to ensure that its subtrees are properly
|
||||||
|
|
Loading…
Reference in New Issue