diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-24 00:04:11 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-15 04:04:28 -0400 |
| commit | 50188982c8770e4f54b2be84eedceff9757b9760 (patch) | |
| tree | 4222013304f42c5e18723f5a262be8a5a10da29d | |
| parent | 7a1d54fa61881f6454f3e3282cf5cf692e140f93 (diff) | |
| download | gcc-50188982c8770e4f54b2be84eedceff9757b9760.zip gcc-50188982c8770e4f54b2be84eedceff9757b9760.tar.gz gcc-50188982c8770e4f54b2be84eedceff9757b9760.tar.bz2 | |
[Ada] Replace repeated Ekind with Ekind_In
2020-06-15 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* exp_ch6.adb (Expand_Call_Helper): Replace repeated Ekind with
Ekind_In.
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 521289a..cb31ae9 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4128,8 +4128,7 @@ package body Exp_Ch6 is -- and reanalyzed (see Expand_Protected_Subprogram_Call). elsif Is_Protected_Type (Scope (Subp)) - and then (Ekind (Subp) = E_Procedure - or else Ekind (Subp) = E_Function) + and then Ekind_In (Subp, E_Procedure, E_Function) then null; |