diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-15 07:18:21 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-15 07:18:21 +0000 |
| commit | 29f4754ff005a8b53f2f4341093bf1e800aad4ce (patch) | |
| tree | 0c68173537cdf9a84c8102d91ef9ec47541a5d8b /gcc/ada/trans.c | |
| parent | 55d7d0fa979fee55901c9ed8a65fd59461b70840 (diff) | |
| download | gcc-29f4754ff005a8b53f2f4341093bf1e800aad4ce.zip gcc-29f4754ff005a8b53f2f4341093bf1e800aad4ce.tar.gz gcc-29f4754ff005a8b53f2f4341093bf1e800aad4ce.tar.bz2 | |
ada-tree.h (DECL_BY_COMPONENT_PTR_P): Use DECL_LANG_FLAG_3.
* ada-tree.h (DECL_BY_COMPONENT_PTR_P): Use DECL_LANG_FLAG_3.
* decl.c (gnat_to_gnu_entity) <object>: Call maybe_pad_type only
if a size or alignment is specified. Do not take into account
alignment promotions for the computation of the object's size.
<type>: Call maybe_pad_type only if a size or alignment is specified.
(maybe_pad_type): Really reuse the RM_Size of the original type if
requested.
* trans.c (Attribute_to_gnu): Fix a couple of nits.
* utils2.c (build_binary_op) <MODIFY_EXPR>: Merge related conditional
statements. Use the padded view of the type when copying between
padded objects of the same underlying type.
From-SVN: r134310
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index b00f5c3..300ac78 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -996,8 +996,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) /* Remove NOPS from gnu_expr and conversions from gnu_prefix. We only use GNU_EXPR to see if a COMPONENT_REF was involved. */ while (TREE_CODE (gnu_expr) == NOP_EXPR) - gnu_expr = TREE_OPERAND (gnu_expr, 0) - ; + gnu_expr = TREE_OPERAND (gnu_expr, 0); gnu_prefix = remove_conversions (gnu_prefix, true); prefix_unused = true; @@ -1018,7 +1017,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)); |