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/errout.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/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 0c661b6..587dcfe 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -2387,7 +2387,7 @@ package body Errout is end loop; if Nkind (N) = N_Raise_Constraint_Error - and then Original_Node (N) /= N + and then Is_Rewrite_Substitution (N) and then No (Condition (N)) then -- Warnings may have been posted on subexpressions of the original |