diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-03-10 10:11:29 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2018-03-10 10:11:29 +0000 |
| commit | f1bc6414556c6526a6560be45066ffe77c8815a7 (patch) | |
| tree | 96d7fd84190a97e8e13135f396c57850d3e9290f /gcc/ada | |
| parent | 7b602c4dc28c0eb24fec50fe20af78c13114e8a6 (diff) | |
| download | gcc-f1bc6414556c6526a6560be45066ffe77c8815a7.zip gcc-f1bc6414556c6526a6560be45066ffe77c8815a7.tar.gz gcc-f1bc6414556c6526a6560be45066ffe77c8815a7.tar.bz2 | |
trans.c (node_has_volatile_full_access): Consider only entities for objects.
* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:
Consider only entities for objects.
From-SVN: r258412
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 56afab0..5dabc153 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-03-10 Eric Botcazou <ebotcazou@adacore.com> + + * gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>: + Consider only entities for objects. + 2018-03-07 Sebastian Huber <sebastian.huber@embedded-brains.de> * gcc-interface/Makefile.in (OSCONS_CPP): Remove redundant diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index ac80a3e..fbdced5 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -4082,6 +4082,8 @@ node_has_volatile_full_access (Node_Id gnat_node) case N_Identifier: case N_Expanded_Name: gnat_entity = Entity (gnat_node); + if (!Is_Object (gnat_entity)) + break; return Is_Volatile_Full_Access (gnat_entity) || Is_Volatile_Full_Access (Etype (gnat_entity)); |