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/einfo.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/einfo.ads')
| -rw-r--r-- | gcc/ada/einfo.ads | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 3995f8e..7428ead 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -786,10 +786,6 @@ package Einfo is -- Modify_Tree_For_C is set. Denotes the internally built procedure -- with an extra out parameter created for it. --- Corresponding_Protected_Entry (Node18) --- Defined in subprogram bodies. Set for subprogram bodies that implement --- a protected type entry to point to the entity for the entry. - -- Corresponding_Record_Component (Node21) -- Defined in components of a derived untagged record type, including -- discriminants. For a regular component or a girder discriminant, |