diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gen_il-gen-gen_entities.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/gen_il-types.ads | 3 |
2 files changed, 8 insertions, 1 deletions
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, |