[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.

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 521289a..cb31ae9 100644 (file)
--- 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;