diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-07 18:41:01 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-07 18:41:01 +0000 |
| commit | 2b5fb6fb926d937f5b8abf1f4d406f3173795ee8 (patch) | |
| tree | 01383e32c69120abe8445d35e65f328e6c8bdf0a /gcc/ada/utils.c | |
| parent | 957aa3ae181f16b3bfba42f8e9a506f029f6d876 (diff) | |
| download | gcc-2b5fb6fb926d937f5b8abf1f4d406f3173795ee8.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133014 138bc75d-0d04-0410-961f-82ee72b054a4
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 bdce72a6d4d..46ce865bdb4 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 |