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

gcc/ada/ChangeLog

 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.
 	(gnat_to_gnu_entity) <E_Function>: Prepend leaf attribute on entities
 	whose name is SS_MARK_NAME.

gcc/ada/gcc-interface/decl.c

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