diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-03-07 18:41:01 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-03-07 18:41:01 +0000 |
| commit | b49a1a1e0fef509deb7d91ef348ad3793478f471 (patch) | |
| tree | 01383e32c69120abe8445d35e65f328e6c8bdf0a /gcc/ada/decl.c | |
| parent | 38516a1ab66ecdd05a12bfaad2eb05736a36e1c0 (diff) | |
| download | gcc-b49a1a1e0fef509deb7d91ef348ad3793478f471.zip gcc-b49a1a1e0fef509deb7d91ef348ad3793478f471.tar.gz gcc-b49a1a1e0fef509deb7d91ef348ad3793478f471.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Add comment for the packed array type case.
* decl.c (gnat_to_gnu_entity) <E_Modular_Integer_Subtype>: Add
comment for the packed array type case.
* utils.c (build_template): Use a loop to strip padding or
containing records for justified modular types.
From-SVN: r133014
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 4827939..c1d02ec 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -1493,6 +1493,11 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) = UI_To_gnu (RM_Size (gnat_entity), bitsizetype); gnu_type = make_node (RECORD_TYPE); TYPE_NAME (gnu_type) = create_concat_name (gnat_entity, "JM"); + + /* Propagate the alignment of the modular type to the record. + This means that bitpacked arrays have "ceil" alignment for + their size, which may seem counter-intuitive but makes it + possible to easily overlay them on modular types. */ TYPE_ALIGN (gnu_type) = TYPE_ALIGN (gnu_field_type); TYPE_USER_ALIGN (gnu_type) = TYPE_USER_ALIGN (gnu_field_type); TYPE_PACKED (gnu_type) = 1; |