diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-05-25 20:59:27 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-05-25 20:59:27 +0000 |
| commit | 2117b9bb988c489ff1a2233e066abc7cf9b136c1 (patch) | |
| tree | d811c6f7bac6b6337a78000eea617b1e2544870c /gcc/ada/gcc-interface/decl.c | |
| parent | f797c2b745ec8a1b5750900caf54c96dcbc904ca (diff) | |
| download | gcc-2117b9bb988c489ff1a2233e066abc7cf9b136c1.zip gcc-2117b9bb988c489ff1a2233e066abc7cf9b136c1.tar.gz gcc-2117b9bb988c489ff1a2233e066abc7cf9b136c1.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Minor tweak.
* gcc-interface/decl.c (gnat_to_gnu_entity): Minor tweak.
* gcc-interface/trans.c (finalize_nrv_unc_r): Use CONSTRUCTOR_ELT.
* gcc-interface/utils.c (convert): Likewise and simplify.
(remove_conversions): Likewise.
* gcc-interface/utils2.c (compare_fat_pointers): Likewise.
(build_unary_op): Likewise and simplify.
From-SVN: r223653
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 27f906d..501b076 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1335,8 +1335,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) = TREE_TYPE (DECL_CHAIN (TYPE_FIELDS (gnu_alloc_type))); if (TREE_CODE (gnu_expr) == CONSTRUCTOR - && 1 == vec_safe_length (CONSTRUCTOR_ELTS (gnu_expr))) - gnu_expr = 0; + && vec_safe_length (CONSTRUCTOR_ELTS (gnu_expr)) == 1) + gnu_expr = NULL_TREE; else gnu_expr = build_component_ref |