From 0f3dfe41cb296ff2a53b6b917aa10ff5a78c24fe Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 10 Nov 2021 12:41:19 +0100
Subject: [Ada] Replace low-level detection of subprograms with high-level
 wrapper

gcc/ada/

	* exp_aggr.adb, sem_cat.adb, sem_ch10.adb, sem_ch12.adb,
	sem_elim.adb, sem_util.adb: Replace uses of Subprogram_Kind with
	Is_Subprogram.
---
 gcc/ada/sem_elim.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gcc/ada/sem_elim.adb')

diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb
index c08686d..bd3c2ef 100644
--- a/gcc/ada/sem_elim.adb
+++ b/gcc/ada/sem_elim.adb
@@ -247,7 +247,7 @@ package body Sem_Elim is
 
       --  Elimination of objects and types is not implemented yet
 
-      elsif Ekind (E) not in Subprogram_Kind then
+      elsif not Is_Subprogram (E) then
          return;
       end if;
 
-- 
cgit v1.1