[Ada] Cleanup condition for an effectively volatile array type
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 29 May 2020 18:57:53 +0000 (20:57 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 15 Jul 2020 13:42:41 +0000 (09:42 -0400)
commit98e663f5979ad0686d7ed79a3c8ff7445f5fab18
tree9190a63f00efc8ee457bd65bebde2ee8d3cb2e75
parent8cd5951d68b98425beec4a632abcdc3c559074a4
[Ada] Cleanup condition for an effectively volatile array type

gcc/ada/

* sem_prag.adb (Atomic_Components): Simplify with Ekind_In.
(Complex_Representation): Fix type of E_Id, which just like when
for pragma Atomic_Components will hold an N_Identifier node, not
an entity.
* sem_util.adb (Is_Effectively_Volatile): Refactor to avoid
unnecessary computation.
gcc/ada/sem_prag.adb
gcc/ada/sem_util.adb