* gcc-interface/decl.c (make_packable_type): Copy DECL_PARALLEL_TYPE

	onto the new type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172863 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 31a892c..70df175 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,10 @@
 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
        parameter.
        * gcc-interface/utils.c (create_subprog_decl): Likewise.  Set

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index c8e662e..14929b8 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.  */