diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-04-22 17:41:28 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-04-22 17:41:28 +0000 |
| commit | eb601ae15ac9daf8381c0312c15bf7ae24b0ee38 (patch) | |
| tree | dfe153cd2fc46e499a6eeb3ee7f00665787e284a /gcc/ada | |
| parent | 7d7fcb08c3e4f48c061a1987ec2445a11560c4e6 (diff) | |
| download | gcc-eb601ae15ac9daf8381c0312c15bf7ae24b0ee38.zip gcc-eb601ae15ac9daf8381c0312c15bf7ae24b0ee38.tar.gz gcc-eb601ae15ac9daf8381c0312c15bf7ae24b0ee38.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 31a892c..70df175 100644 --- 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 --- 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. */ |