diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 1502d446aad..01ec45a457d 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -257,7 +257,7 @@ package body Einfo is -- Contract Node34 - -- (unused) Node35 + -- Import_Pragma Node35 --------------------------------------------- -- Usage of Flags in Defining Entity Nodes -- @@ -1785,6 +1785,12 @@ package body Einfo is return Node4 (Id); end Homonym; + function Import_Pragma (Id : E) return E is + begin + pragma Assert (Is_Subprogram (Id)); + return Node35 (Id); + end Import_Pragma; + function Interface_Alias (Id : E) return E is begin pragma Assert (Is_Subprogram (Id)); @@ -4483,6 +4489,12 @@ package body Einfo is Set_Node4 (Id, V); end Set_Homonym; + procedure Set_Import_Pragma (Id : E; V : E) is + begin + pragma Assert (Is_Subprogram (Id)); + Set_Node35 (Id, V); + end Set_Import_Pragma; + procedure Set_Interface_Alias (Id : E; V : E) is begin pragma Assert @@ -9554,6 +9566,8 @@ package body Einfo is procedure Write_Field35_Name (Id : Entity_Id) is begin case Ekind (Id) is + when Subprogram_Kind => + Write_Str ("Import_Pragma"); when others => Write_Str ("Field35??"); end case; |