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/ada-tree.h | |
| 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/ada-tree.h')
| -rw-r--r-- | gcc/ada/ada-tree.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index b38c34d..6c60adf 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -243,13 +243,13 @@ struct lang_type GTY(()) {tree t; }; is needed to access the object. */ #define DECL_BY_REF_P(NODE) DECL_LANG_FLAG_1 (NODE) -/* Nonzero if this decl is a PARM_DECL for an Ada array being passed to a - foreign convention subprogram. */ -#define DECL_BY_COMPONENT_PTR_P(NODE) DECL_LANG_FLAG_2 (PARM_DECL_CHECK (NODE)) - /* Nonzero in a FIELD_DECL that is a dummy built for some internal reason. */ #define DECL_INTERNAL_P(NODE) DECL_LANG_FLAG_3 (FIELD_DECL_CHECK (NODE)) +/* Nonzero if this decl is a PARM_DECL for an Ada array being passed to a + foreign convention subprogram. */ +#define DECL_BY_COMPONENT_PTR_P(NODE) DECL_LANG_FLAG_3 (PARM_DECL_CHECK (NODE)) + /* Nonzero in a FUNCTION_DECL that corresponds to an elaboration procedure. */ #define DECL_ELABORATION_PROC_P(NODE) \ DECL_LANG_FLAG_3 (FUNCTION_DECL_CHECK (NODE)) |