[gcc r12-3856] [Ada] Add Subprogram_Body_Or_Type

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:c20222ed49c0e6ec5520286f742c2999e14e4d03

commit r12-3856-gc20222ed49c0e6ec5520286f742c2999e14e4d03
Author: Richard Kenner <kenner@adacore.com>
Date:   Sat Jul 31 17:46:56 2021 -0400

    [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:
---
 gcc/ada/gen_il-gen-gen_entities.adb | 6 ++++++
 gcc/ada/gen_il-types.ads            | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/gen_il-gen-gen_entities.adb b/gcc/ada/gen_il-gen-gen_entities.adb
index bca0549cc97..0b70dae6c2f 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 3df185de2b3..c8f87f9d12d 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,