From c20222ed49c0e6ec5520286f742c2999e14e4d03 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Sat, 31 Jul 2021 17:46:56 -0400 Subject: [PATCH] [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. --- 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 bca0549..0b70dae 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 3df185d..c8f87f9 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, -- 2.7.4