diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-02-08 23:39:24 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:19 -0400 |
| commit | 7c82737c72c030bdf9724ba5201b96824e689765 (patch) | |
| tree | ed57013d5f603f8772245087fdcb7bbf4db09e25 /gcc/ada/gen_il-fields.ads | |
| parent | 9fd8b9fa38ea47692abaf886ba2c30053e71623c (diff) | |
| download | gcc-7c82737c72c030bdf9724ba5201b96824e689765.zip gcc-7c82737c72c030bdf9724ba5201b96824e689765.tar.gz gcc-7c82737c72c030bdf9724ba5201b96824e689765.tar.bz2 | |
[Ada] Fix link from body protected entry implementation to source code
gcc/ada/
* einfo.ads: Move Corresponding_Protected_Entry...
* sinfo.ads: ... here.
* exp_ch9.adb (Build_Entry_Body): Link procedure and entry
bodies.
* gen_il-fields.ads (Opt_Field_Enum): Add
Corresponding_Entry_Body field to nodes; remove
Corresponding_Protected_Entry field from entities.
* gen_il-gen-gen_entities.adb (Gen_Entities): Remove
Corresponding_Protected_Entry field from E_Void and
E_Subprogram_Body.
* gen_il-gen-gen_nodes.adb (Gen_Nodes): Add
Corresponding_Entry_Body field to N_Subprogram_Body.
* sem_ch6.adb (Analyze_Subprogram_Specification): Remove
manipulation of Ekind and Corresponding_Protected_Entry added as
part of the support for varsize-nodes.
Diffstat (limited to 'gcc/ada/gen_il-fields.ads')
| -rw-r--r-- | gcc/ada/gen_il-fields.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gen_il-fields.ads b/gcc/ada/gen_il-fields.ads index 7948d26..c26b25e 100644 --- a/gcc/ada/gen_il-fields.ads +++ b/gcc/ada/gen_il-fields.ads @@ -113,6 +113,7 @@ package Gen_IL.Fields is Convert_To_Return_False, Corresponding_Aspect, Corresponding_Body, + Corresponding_Entry_Body, Corresponding_Formal_Spec, Corresponding_Generic_Association, Corresponding_Integer_Value, @@ -464,7 +465,6 @@ package Gen_IL.Fields is Corresponding_Equality, Corresponding_Function, Corresponding_Procedure, - Corresponding_Protected_Entry, Corresponding_Record_Component, Corresponding_Record_Type, Corresponding_Remote_Type, |