[Ada] Cleanup code for flagging object references in interfering contexts
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 29 Jan 2021 10:45:36 +0000 (11:45 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 7 May 2021 09:29:02 +0000 (05:29 -0400)
commitbf62c9012ce7edbc55a62a4ef34a988209ff81a2
tree8232f854748f341d8c319b3f924765bc78584318
parentbfdc95943e46532617c70eed00f5dff5a2238dcd
[Ada] Cleanup code for flagging object references in interfering contexts

gcc/ada/

* sem_res.adb (Flag_Object): Replace chained IF with a CASE;
remove repeated calls to Entity; do not traverse into
N_Identifier and N_Expanded_Name, because only need to examine
their Entity field anyway.
gcc/ada/sem_res.adb