From bc1f44ef8f87228591b7ecd74dac324812c0ff47 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 14 Aug 2019 09:44:21 +0000 Subject: [PATCH] [Ada] Minor refactoring in Einfo 2019-08-14 Piotr Trojanek gcc/ada/ * einfo.adb (Is_Generic_Actual_Subprogram): Replace repeated calls to Ekind with Ekind_In. From-SVN: r274445 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/einfo.adb | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4d999a4fb84..937ceccdd82 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-08-14 Piotr Trojanek + + * einfo.adb (Is_Generic_Actual_Subprogram): Replace repeated + calls to Ekind with Ekind_In. + 2019-08-13 Richard Sandiford PR middle-end/91421 diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 4e5681d23e0..0438c8e967d 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -2314,7 +2314,7 @@ package body Einfo is function Is_Generic_Actual_Subprogram (Id : E) return B is begin - pragma Assert (Ekind (Id) = E_Function or else Ekind (Id) = E_Procedure); + pragma Assert (Ekind_In (Id, E_Function, E_Procedure)); return Flag274 (Id); end Is_Generic_Actual_Subprogram; -- 2.30.2