diff options
| author | Richard Kenner <kenner@adacore.com> | 2021-07-31 17:46:56 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-23 13:06:17 +0000 |
| commit | c20222ed49c0e6ec5520286f742c2999e14e4d03 (patch) | |
| tree | 889cb77d645431fd5872ee428883067a41d4fb7f /gcc | |
| parent | faa396c4eee228108802135f9aa0986254aca8e4 (diff) | |
| download | gcc-c20222ed49c0e6ec5520286f742c2999e14e4d03.zip gcc-c20222ed49c0e6ec5520286f742c2999e14e4d03.tar.gz gcc-c20222ed49c0e6ec5520286f742c2999e14e4d03.tar.bz2 | |
[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.
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, |