From db05646871cf1d56fa9a7449ca8925d8b1efc23f Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Sun, 25 Mar 2012 17:21:49 +0000 Subject: [PATCH] * gcc-interface/decl.c (gnat_to_gnu_entity) : Copy the TYPE_PACKED flag from the base type. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185782 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/decl.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9a1f871..7b8832d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2012-03-25 Eric Botcazou + * gcc-interface/decl.c (gnat_to_gnu_entity) : Copy + the TYPE_PACKED flag from the base type. + +2012-03-25 Eric Botcazou + * gcc-interface/decl.c (SS_MARK_NAME): New define. (gnat_to_gnu_entity) : Prepend leaf attribute on entities whose name is SS_MARK_NAME. 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. */ -- 2.7.4