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/utils.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/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index bdce72a..46ce865 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -2486,9 +2486,9 @@ build_template (tree template_type, tree array_type, tree expr) tree bound_list = NULL_TREE; tree field; - if (TREE_CODE (array_type) == RECORD_TYPE - && (TYPE_IS_PADDING_P (array_type) - || TYPE_JUSTIFIED_MODULAR_P (array_type))) + while (TREE_CODE (array_type) == RECORD_TYPE + && (TYPE_IS_PADDING_P (array_type) + || TYPE_JUSTIFIED_MODULAR_P (array_type))) array_type = TREE_TYPE (TYPE_FIELDS (array_type)); if (TREE_CODE (array_type) == ARRAY_TYPE |