decl.c (make_packable_type): Copy DECL_PARALLEL_TYPE onto the new type.

	* gcc-interface/decl.c (make_packable_type): Copy DECL_PARALLEL_TYPE
	onto the new type.

From-SVN: r172863

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 31a892ce91a69cc3087d736572a4d70babaf38b9..70df1752a052f9bb638a7f858869b4f08b7cc14f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/decl.c (make_packable_type): Copy DECL_PARALLEL_TYPE
+       onto the new type.
+
 2011-04-22  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/gigi.h (create_subprog_decl): Add ARTIFICIAL_FLAG

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index c8e662ec0eff2319def47510ced0d53db34bc745..14929b8466c38ecb7b43cf81dc9daaa589e93ce0 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -6334,6 +6334,8 @@ make_packable_type (tree type, bool in_record)
 
   finish_record_type (new_type, nreverse (field_list), 2, false);
   relate_alias_sets (new_type, type, ALIAS_SET_COPY);
+  SET_DECL_PARALLEL_TYPE (TYPE_STUB_DECL (new_type),
+                         DECL_PARALLEL_TYPE (TYPE_STUB_DECL (type)));
 
   /* If this is a padding record, we never want to make the size smaller
      than what was specified.  For QUAL_UNION_TYPE, also copy the size.  */