diff options
| author | Tristan Gingold <gingold@adacore.com> | 2013-11-11 16:55:29 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-11-11 16:55:29 +0000 |
| commit | 1448093c327947d4b1a644c42ef82ce064d1dc31 (patch) | |
| tree | 9d801bea0646b4030a6ef1115de2690dafea369c /gcc/ada/gcc-interface/utils2.c | |
| parent | 7008512d47e0b608da552569a5e2bb2eb1789bae (diff) | |
| download | gcc-1448093c327947d4b1a644c42ef82ce064d1dc31.zip gcc-1448093c327947d4b1a644c42ef82ce064d1dc31.tar.gz gcc-1448093c327947d4b1a644c42ef82ce064d1dc31.tar.bz2 | |
tree.h (CONSTRUCTOR_NO_CLEARING): Define.
* tree.h (CONSTRUCTOR_NO_CLEARING): Define.
* tree-core.h (CONSTRUCTOR_NO_CLEARING): Document it.
* tree.def (CONSTRUCTOR): Likewise.
* doc/generic.texi (CONSTRUCTOR): Likewise. Update description.
* gimplify.c (gimplify_init_constructor): Do not clear the object when
the constructor is incomplete and CONSTRUCTOR_NO_CLEARING is set.
ada/
* gcc-interface/utils2.c (gnat_build_constructor): Also set the flag
CONSTRUCTOR_NO_CLEARING on the constructor.
From-SVN: r204677
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 64f7564..9410b40 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1874,6 +1874,7 @@ gnat_build_constructor (tree type, vec<constructor_elt, va_gc> *v) v->qsort (compare_elmt_bitpos); result = build_constructor (type, v); + CONSTRUCTOR_NO_CLEARING (result) = 1; TREE_CONSTANT (result) = TREE_STATIC (result) = allconstant; TREE_SIDE_EFFECTS (result) = side_effects; TREE_READONLY (result) = TYPE_READONLY (type) || allconstant; |