diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2018-05-30 08:57:33 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-30 08:57:33 +0000 |
| commit | dc67cfeaec73c486ae9018c75710feb3b94545bd (patch) | |
| tree | 3f68194b9140df10b22f588ea834521fc4595e59 /gcc/ada/sem_ch4.adb | |
| parent | 81c8f261d7c09b5dff140a604f0743f75827c647 (diff) | |
| download | gcc-dc67cfeaec73c486ae9018c75710feb3b94545bd.zip gcc-dc67cfeaec73c486ae9018c75710feb3b94545bd.tar.gz gcc-dc67cfeaec73c486ae9018c75710feb3b94545bd.tar.bz2 | |
[Ada] Reuse Is_Rewrite_Substitution where possible
Use a high-level Is_Rewrite_Substitution instead of a low-level inequality,
with the intention to improve the code easier to read. Semantics unaffected,
so no test provided.
2018-05-30 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* errout.adb, exp_aggr.adb, exp_ch7.adb, exp_util.adb, lib.adb,
sem_ch13.adb, sem_ch4.adb, sem_res.adb, sem_util.adb
(Has_Original_Node): Refactor to use Is_Rewrite_Substitution.
From-SVN: r260935
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index f177417..1b8d8cb 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -1345,7 +1345,7 @@ package body Sem_Ch4 is -- parameter has been analyzed, but may need a subsequent -- dereference, so skip its analysis now. - if N /= Original_Node (N) + if Is_Rewrite_Substitution (N) and then Nkind (Original_Node (N)) = Nkind (N) and then Nkind (Name (N)) /= Nkind (Name (Original_Node (N))) and then Present (Parameter_Associations (N)) |