diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-11-29 22:20:09 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-16 08:01:02 -0500 |
commit | 612c48b13b38c42094059350d945f9d29983491a (patch) | |
tree | d054c364abd608b90f7fe593d16999aaa290a75b /gcc/ada/sem_disp.adb | |
parent | 1053ff8a3a8bde5498476e544b40fc9cdc5ee888 (diff) | |
download | gcc-612c48b13b38c42094059350d945f9d29983491a.zip gcc-612c48b13b38c42094059350d945f9d29983491a.tar.gz gcc-612c48b13b38c42094059350d945f9d29983491a.tar.bz2 |
[Ada] Simplify membership tests with N_Subprogram_Call subtype
gcc/ada/
* exp_ch6.adb, exp_util.adb, sem_ch4.adb, sem_disp.adb,
sem_elab.adb: Simplify membership test.
Diffstat (limited to 'gcc/ada/sem_disp.adb')
-rw-r--r-- | gcc/ada/sem_disp.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index cf54337..36efa42 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -625,7 +625,7 @@ package body Sem_Disp is Par := Parent (Par); end if; - if Nkind (Par) in N_Function_Call | N_Procedure_Call_Statement + if Nkind (Par) in N_Subprogram_Call and then Is_Entity_Name (Name (Par)) then declare |