From 50188982c8770e4f54b2be84eedceff9757b9760 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 24 Mar 2020 00:04:11 +0100 Subject: [PATCH] [Ada] Replace repeated Ekind with Ekind_In 2020-06-15 Piotr Trojanek gcc/ada/ * exp_ch6.adb (Expand_Call_Helper): Replace repeated Ekind with Ekind_In. --- gcc/ada/exp_ch6.adb | 3 +-- 1 file changed, 1 insertion(+), 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; -- 2.7.4