diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-06-11 09:14:20 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-06-11 09:14:20 +0000 |
| commit | f54ee9801da8ab98c156f16770984b8eaebf1b42 (patch) | |
| tree | bb4fc549e5f2f30af7295a85daa051b8ad650188 /gcc/ada/gcc-interface/utils.c | |
| parent | e4270465dd9aecb856b05a67ed5653b9e0f57c27 (diff) | |
| download | gcc-f54ee9801da8ab98c156f16770984b8eaebf1b42.zip gcc-f54ee9801da8ab98c156f16770984b8eaebf1b42.tar.gz gcc-f54ee9801da8ab98c156f16770984b8eaebf1b42.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Convert GNU_SIZE to units before invoking allocatable_size_p on it.
* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Convert GNU_SIZE
to units before invoking allocatable_size_p on it.
Remove orphaned comment. Do not use ssize_int.
<E_Record_Subtype>: Traverse list in original order. Minor tweak.
(allocatable_size_p): Adjust and simplify.
(build_subst_list): Use consistent terminology throughout.
(build_variant_list): Likewise. Traverse list in original order.
(create_field_decl_from): Likewise.
(copy_and_substitute_in_size): Likewise.
(create_variant_part_from): Add comment about field list order.
* gcc-interface/utils.c (build_vms_descriptor): Do not use ssize_int.
* gcc-interface/utils2.c (build_allocator): Likewise.
From-SVN: r188382
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index db909d9..62a4b31 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3601,7 +3601,7 @@ build_vms_descriptor (tree type, Mechanism_Type mech, Entity_Id gnat_entity) record_type, size_int (klass), field_list); field_list = make_descriptor_field ("MBMO", gnat_type_for_size (32, 1), - record_type, ssize_int (-1), field_list); + record_type, size_int (-1), field_list); field_list = make_descriptor_field ("LENGTH", gnat_type_for_size (64, 1), record_type, |