From eb601ae15ac9daf8381c0312c15bf7ae24b0ee38 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 22 Apr 2011 17:41:28 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/decl.c | 2 ++ 2 files changed, 7 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 31a892ce91a..70df1752a05 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2011-04-22 Eric Botcazou + + * gcc-interface/decl.c (make_packable_type): Copy DECL_PARALLEL_TYPE + onto the new type. + 2011-04-22 Eric Botcazou * 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 c8e662ec0ef..14929b8466c 100644 --- 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. */ -- 2.30.2