aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/gcc-interface/trans.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
-rw-r--r--gcc/ada/gcc-interface/trans.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index aa4393c..39d4d28 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -968,12 +968,8 @@ lvalue_for_aggregate_p (Node_Id gnat_node, tree gnu_type)
get_unpadded_type (Etype (gnat_parent)));
case N_Object_Declaration:
- /* For an aggregate object declaration, return the constant at top level
- in order to avoid generating elaboration code. */
- if (global_bindings_p ())
- return false;
-
- /* ... fall through ... */
+ /* For an aggregate object declaration, return false consistently. */
+ return false;
case N_Assignment_Statement:
/* For an aggregate assignment, decide based on the size. */