diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-03-07 18:55:59 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-03-07 18:55:59 +0000 |
| commit | 6ba4f08f3414d327506927c68845cb77864826fe (patch) | |
| tree | 70d0181abda949ab167190b0c16c3b5c6d0b427a /gcc/ada/gcc-interface/trans.c | |
| parent | 95f2389a7d909045ccbe7475945f823eabf91a03 (diff) | |
| download | gcc-6ba4f08f3414d327506927c68845cb77864826fe.zip gcc-6ba4f08f3414d327506927c68845cb77864826fe.tar.gz gcc-6ba4f08f3414d327506927c68845cb77864826fe.tar.bz2 | |
trans.c (Identifier_to_gnu): Don't unshare initializer.
* gcc-interface/trans.c (Identifier_to_gnu): Don't unshare initializer.
(add_decl_expr): Mark external DECLs as used.
* gcc-interface/utils.c (convert) <CONSTRUCTOR>: Copy the vector.
From-SVN: r185072
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index eebe2a9..860e0dc 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1102,11 +1102,9 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) = lvalue_required_p (gnat_node, gnu_result_type, true, address_of_constant, Is_Aliased (gnat_temp)); - /* ??? We need to unshare the initializer if the object is external - as such objects are not marked for unsharing if we are not at the - global level. This should be fixed in add_decl_expr. */ + /* Finally retrieve the initializer if this is deemed valid. */ if ((constant_only && !address_of_constant) || !require_lvalue) - gnu_result = unshare_expr (DECL_INITIAL (gnu_result)); + gnu_result = DECL_INITIAL (gnu_result); } /* The GNAT tree has the type of a function set to its result type, so we @@ -7113,10 +7111,10 @@ add_decl_expr (tree gnu_decl, Entity_Id gnat_entity) gnu_stmt = build1 (DECL_EXPR, void_type_node, gnu_decl); - /* If we are global, we don't want to actually output the DECL_EXPR for - this decl since we already have evaluated the expressions in the + /* If we are external or global, we don't want to output the DECL_EXPR for + this DECL node since we already have evaluated the expressions in the sizes and positions as globals and doing it again would be wrong. */ - if (global_bindings_p ()) + if (DECL_EXTERNAL (gnu_decl) || global_bindings_p ()) { /* Mark everything as used to prevent node sharing with subprograms. Note that walk_tree knows how to deal with TYPE_DECL, but neither @@ -7135,7 +7133,7 @@ add_decl_expr (tree gnu_decl, Entity_Id gnat_entity) && !TYPE_FAT_POINTER_P (type)) MARK_VISITED (TYPE_ADA_SIZE (type)); } - else if (!DECL_EXTERNAL (gnu_decl)) + else add_stmt_with_node (gnu_stmt, gnat_entity); /* If this is a variable and an initializer is attached to it, it must be |