diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2017-09-09 12:02:57 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-09-09 12:02:57 +0000 |
| commit | ea09ecc5c01685aec71da99f8949f8e403e21789 (patch) | |
| tree | f179eb786fd436bd2e5e931dfc5deece03859df5 /gcc/ada/gcc-interface/trans.c | |
| parent | 5bab4c9631c478b7940e952ea57de680321d5a8e (diff) | |
| download | gcc-ea09ecc5c01685aec71da99f8949f8e403e21789.zip gcc-ea09ecc5c01685aec71da99f8949f8e403e21789.tar.gz gcc-ea09ecc5c01685aec71da99f8949f8e403e21789.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Only set the TYPE_ALIGN_OK and TYPE_BY_REFERENCE_P flags on types after various...
* gcc-interface/decl.c (gnat_to_gnu_entity): Only set the TYPE_ALIGN_OK
and TYPE_BY_REFERENCE_P flags on types after various promotions.
* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:
Consider all kinds of entities.
From-SVN: r251927
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 8eff9c3..2f7d497 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -4075,8 +4075,6 @@ node_has_volatile_full_access (Node_Id gnat_node) case N_Identifier: case N_Expanded_Name: gnat_entity = Entity (gnat_node); - if (Ekind (gnat_entity) != E_Variable) - break; return Is_Volatile_Full_Access (gnat_entity) || Is_Volatile_Full_Access (Etype (gnat_entity)); |