From dc67cfeaec73c486ae9018c75710feb3b94545bd Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 30 May 2018 08:57:33 +0000 Subject: [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 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 --- gcc/ada/sem_ch4.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sem_ch4.adb') 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)) -- cgit v1.1