decl.c (gnat_to_gnu_entity): Copy the TYPE_PACKED flag from the base type.

* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Copy
	the TYPE_PACKED flag from the base type.

From-SVN: r185782
This commit is contained in:
Eric Botcazou 2012-03-25 17:21:49 +00:00 committed by Eric Botcazou
parent d3cef56c98
commit 92eee8f857
2 changed files with 6 additions and 0 deletions

View file

@ -1,3 +1,8 @@
2012-03-25 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Copy
the TYPE_PACKED flag from the base type.
2012-03-25 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (SS_MARK_NAME): New define.

View file

@ -3263,6 +3263,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
gnu_type = make_node (RECORD_TYPE);
TYPE_NAME (gnu_type) = gnu_entity_name;
TYPE_PACKED (gnu_type) = TYPE_PACKED (gnu_base_type);
/* Set the size, alignment and alias set of the new type to
match that of the old one, doing required substitutions. */