diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-11-23 18:55:50 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-11-23 18:55:50 +0000 |
| commit | 4405947961fa57ecbd0b3270bda0c3d7db8196d7 (patch) | |
| tree | c59b1845ae54b4bff9e737ce6ec358e0e146715e /gcc/ada/gcc-interface/decl.c | |
| parent | c5b966389e4baac448326c1639d672d7f82577e3 (diff) | |
| download | gcc-4405947961fa57ecbd0b3270bda0c3d7db8196d7.zip gcc-4405947961fa57ecbd0b3270bda0c3d7db8196d7.tar.gz gcc-4405947961fa57ecbd0b3270bda0c3d7db8196d7.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Pass the list of attributes when building the corresponding variable of a constant.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Pass the list
of attributes when building the corresponding variable of a constant.
* gcc-interface/utils.c (create_var_decl_1): Do not process attributes
for constants.
From-SVN: r154458
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 9e643a3..ceb1f34 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1366,7 +1366,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) tree gnu_corr_var = create_true_var_decl (gnu_entity_name, gnu_ext_name, gnu_type, gnu_expr, true, Is_Public (gnat_entity), - !definition, static_p, NULL, + !definition, static_p, attr_list, gnat_entity); SET_DECL_CONST_CORRESPONDING_VAR (gnu_decl, gnu_corr_var); |