From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 23 Mar 2020 23:04:11 +0000 (+0100)
Subject: [Ada] Replace repeated Ekind with Ekind_In
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=50188982c8770e4f54b2be84eedceff9757b9760;p=gcc.git

[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 521289a171c..cb31ae96504 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;