diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-03-25 17:21:49 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-03-25 17:21:49 +0000 |
| commit | 92eee8f857578d00623714f22fa9ec1a71ff6b9e (patch) | |
| tree | 6e12d17e0c84f5b7c6f8f07433f8f32b1bc3b7b1 /gcc/ada/gcc-interface/decl.c | |
| parent | d3cef56c989dca82d696678afb723dc79fbb1c30 (diff) | |
| download | gcc-92eee8f857578d00623714f22fa9ec1a71ff6b9e.zip gcc-92eee8f857578d00623714f22fa9ec1a71ff6b9e.tar.gz gcc-92eee8f857578d00623714f22fa9ec1a71ff6b9e.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index abd5185..b925f42 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/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. */ |