diff options
| author | Olivier Hainque <hainque@adacore.com> | 2015-01-06 09:49:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:49:00 +0100 |
| commit | f72a845b320bd21a92d237c4dc0ee6d7d142e910 (patch) | |
| tree | d849ed6560a6b24f0f05d8d225515ae1e45a4749 /gcc/ada/gcc-interface/decl.c | |
| parent | 07e188be3ba696461d3010c9d40e3ff156f7f4d0 (diff) | |
| download | gcc-f72a845b320bd21a92d237c4dc0ee6d7d142e910.zip gcc-f72a845b320bd21a92d237c4dc0ee6d7d142e910.tar.gz gcc-f72a845b320bd21a92d237c4dc0ee6d7d142e910.tar.bz2 | |
decl.c (gnat_to_gnu_entity, [...]): When constructing a ref to variable...
2015-01-06 Olivier Hainque <hainque@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity, case E_Variable): When
constructing a ref to variable, update inner_const_flag from the
variable TREE_READONLY attribute.
* gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Remove default
definition.
(get_target_float_size): Remove.
(get_target_double_size): Remove.
(get_target_long_double_size): Remove.
From-SVN: r219239
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index fda3f0c..b6df1ae 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1415,6 +1415,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) gnu_size = NULL_TREE; used_by_ref = true; + inner_const_flag = TREE_READONLY (gnu_unc_var); const_flag = true; } |