projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7a1d54f)
[Ada] Replace repeated Ekind with Ekind_In
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 23 Mar 2020 23:04:11 +0000 (00:04 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 15 Jun 2020 08:04:28 +0000 (04:04 -0400)
2020-06-15  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

* exp_ch6.adb (Expand_Call_Helper): Replace repeated Ekind with
Ekind_In.

gcc/ada/exp_ch6.adb patch | blob | history

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 521289a171c26fc36c4e83605bdce30764a798b4..cb31ae96504866a898ef5f70414007434281e258 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;