diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 12:07:52 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 12:07:52 +0200 |
| commit | 5042f726c5a4e41d6e52c7dcb21e31259342d311 (patch) | |
| tree | 245afd36b7185db2fe04ff1a0b76ba89f389dffe /gcc/ada/einfo.adb | |
| parent | 3a89c57d9eceff3a49b1500a34d0c7fec32be089 (diff) | |
| download | gcc-5042f726c5a4e41d6e52c7dcb21e31259342d311.tar.gz | |
[multiple changes]
2010-09-09 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Is_Progenitor): Relocated to sem_type.
(Replace_Type): Code cleanup.
* sem_type.ads, sem_type.adb (Is_Progenitor): Relocated from sem_ch3
2010-09-09 Thomas Quinot <quinot@adacore.com>
* exp_ch8.adb: Minor reformatting.
2010-09-09 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb, einfo.adb, einfo.ads: New attribute
Corresponding_Protected_Entry.
From-SVN: r164065
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 15bf858dc62..95dc331996e 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -149,6 +149,7 @@ package body Einfo is -- Alias Node18 -- Corresponding_Concurrent_Type Node18 + -- Corresponding_Protected_Entry Node18 -- Corresponding_Record_Type Node18 -- Delta_Value Ureal18 -- Enclosing_Scope Node18 @@ -723,6 +724,11 @@ package body Einfo is return Node13 (Id); end Corresponding_Equality; + function Corresponding_Protected_Entry (Id : E) return E is + begin + return Node18 (Id); + end Corresponding_Protected_Entry; + function Corresponding_Record_Type (Id : E) return E is begin pragma Assert (Is_Concurrent_Type (Id)); @@ -3109,6 +3115,11 @@ package body Einfo is Set_Node13 (Id, V); end Set_Corresponding_Equality; + procedure Set_Corresponding_Protected_Entry (Id : E; V : E) is + begin + Set_Node18 (Id, V); + end Set_Corresponding_Protected_Entry; + procedure Set_Corresponding_Record_Type (Id : E; V : E) is begin pragma Assert (Is_Concurrent_Type (Id)); @@ -7648,6 +7659,9 @@ package body Einfo is when E_Record_Type => Write_Str ("Corresponding_Concurrent_Type"); + when E_Subprogram_Body => + Write_Str ("Corresponding_Protected_Entry"); + when E_Entry_Index_Parameter => Write_Str ("Entry_Index_Constant"); |