diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-21 17:05:09 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-21 17:05:09 +0000 |
| commit | b4680ca1ec22b7c8b316fb1ccf8abe306ad398f9 (patch) | |
| tree | ba7bd7f71baab2ae605732799c219e06e9ac1bbc /gcc/ada/gcc-interface/trans.c | |
| parent | 350916301fe8afa02464e3ca84c70015ce2cf74b (diff) | |
| download | gcc-b4680ca1ec22b7c8b316fb1ccf8abe306ad398f9.zip gcc-b4680ca1ec22b7c8b316fb1ccf8abe306ad398f9.tar.gz gcc-b4680ca1ec22b7c8b316fb1ccf8abe306ad398f9.tar.bz2 | |
ada-tree.h (TYPE_RM_SIZE_NUM): Delete.
* ada-tree.h (TYPE_RM_SIZE_NUM): Delete.
(TYPE_RM_SIZE): Access TYPE_LANG_SLOT_1 directly for integral types.
* decl.c (gnat_to_gnu_entity) <E_Modular_Integer_Type>: Remove useless
support code for packed array types and assert its uselessness.
<E_Signed_Integer_Subtype>: Reuse entity identifier in more places and
adjust for TYPE_RM_SIZE change.
<all> Fix nits in comments. Use Original_Array_Type accessor instead
of Associated_Node_For_Itype accessor for packed array types.
(make_packable_type): Likewise.
(maybe_pad_type): Likewise.
(set_rm_size): Likewise. Rework conditional statement. Adjust for
TYPE_RM_SIZE change.
(make_type_from_size): Adjust for TYPE_RM_SIZE change.
(rm_size): Fix nits in comments. Rework conditional statements.
* misc.c (gnat_print_type): Adjust for TYPE_RM_SIZE change.
* trans.c (Attribute_to_gnu): Fix nits in comments.
* utils.c (gnat_init_decl_processing): Use more appropriate function
to initialize the size_type_node. Adjust for TYPE_RM_SIZE change.
From-SVN: r146530
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 9558302..50e3fca 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1297,7 +1297,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) /* If we're looking for the size of a field, return the field size. Otherwise, if the prefix is an object, or if 'Object_Size or 'Max_Size_In_Storage_Elements has been specified, the result is the - GCC size of the type. Otherwise, the result is the RM_Size of the + GCC size of the type. Otherwise, the result is the RM size of the type. */ if (TREE_CODE (gnu_prefix) == COMPONENT_REF) gnu_result = DECL_SIZE (TREE_OPERAND (gnu_prefix, 1)); @@ -1306,7 +1306,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) || attribute == Attr_Max_Size_In_Storage_Elements) { /* If this is a padded type, the GCC size isn't relevant to the - programmer. Normally, what we want is the RM_Size, which was set + programmer. Normally, what we want is the RM size, which was set from the specified size, but if it was not set, we want the size of the relevant field. Using the MAX of those two produces the right result in all case. Don't use the size of the field if it's |