From: Richard Kenner <kenner@adacore.com>
Date: Sat, 31 Jul 2021 21:46:56 +0000 (-0400)
Subject: [Ada] Add Subprogram_Body_Or_Type
X-Git-Tag: basepoints/gcc-13~4457
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c20222ed49c0e6ec5520286f742c2999e14e4d03;p=thirdparty%2Fgcc.git

[Ada] Add Subprogram_Body_Or_Type

gcc/ada/

	* gen_il-gen-gen_entities.adb (Subprogram_Body_Or_Type): Add.
	* gen_il-types.ads (Subprogram_Body_Or_Type): Likewise.
---

diff --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb
index bca0549cc979..0b70dae6c2fa 100644
--- a/gcc/ada/gen_il-gen-gen_entities.adb
+++ b/gcc/ada/gen_il-gen-gen_entities.adb
@@ -1408,4 +1408,10 @@ begin -- Gen_IL.Gen.Gen_Entities
              E_Record_Type_With_Private,
              E_Record_Subtype_With_Private));
 
+   Union (Subprogram_Type_Or_Kind,
+          Children =>
+            (Subprogram_Kind,
+             E_Subprogram_Body,
+             E_Subprogram_Type));
+
 end Gen_IL.Gen.Gen_Entities;
diff --git a/gcc/ada/gen_il-types.ads b/gcc/ada/gen_il-types.ads
index 3df185de2b37..c8f87f9d12dc 100644
--- a/gcc/ada/gen_il-types.ads
+++ b/gcc/ada/gen_il-types.ads
@@ -169,8 +169,9 @@ package Gen_IL.Types is
       Record_Kind,
       Record_Field_Kind,
       Scalar_Kind,
-      Subprogram_Kind,
       Signed_Integer_Kind,
+      Subprogram_Type_Or_Kind,
+      Subprogram_Kind,
       Task_Kind,
       Type_Kind,
       Void_Or_Type_Kind,