mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-30 06:25:27 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Renamed_Entity should return Entity_Id

Browse Source 
gcc/ada/

	* einfo-utils.ads, einfo-utils.adb (Renamed_Entity Alias):
	Change Node_Id to Entity_Id.
This commit is contained in:
Bob Duff 2021-11-29 07:45:00 -05:00 committed by Pierre-Marie de Rodat
parent 06faf927cb
commit 0f93c574cb
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/einfo-utils.adb
View File

@ -47,16 +47,16 @@ package body Einfo.Utils is
-- Aliases/Renamings of Renamed_Or_Alias --
-------------------------------------------
function Alias (N : Entity_Id) return Node_Id is
function Alias (N : Entity_Id) return Entity_Id is
begin
return Val : constant Node_Id := Renamed_Or_Alias (N) do
return Val : constant Entity_Id := Renamed_Or_Alias (N) do
pragma Assert
(Is_Overloadable (N) or else Ekind (N) = E_Subprogram_Type);
pragma Assert (Val in N_Entity_Id | N_Empty_Id);
end return;
end Alias;
procedure Set_Alias (N : Entity_Id; Val : Node_Id) is
procedure Set_Alias (N : Entity_Id; Val : Entity_Id) is
begin
pragma Assert
(Is_Overloadable (N) or else Ekind (N) = E_Subprogram_Type);
@ -65,15 +65,15 @@ package body Einfo.Utils is
Set_Renamed_Or_Alias (N, Val);
end Set_Alias;
function Renamed_Entity (N : Entity_Id) return Node_Id is
function Renamed_Entity (N : Entity_Id) return Entity_Id is
begin
return Val : constant Node_Id := Renamed_Or_Alias (N) do
return Val : constant Entity_Id := Renamed_Or_Alias (N) do
pragma Assert (not Is_Object (N) or else Etype (N) = Any_Type);
pragma Assert (Val in N_Entity_Id | N_Empty_Id);
end return;
end Renamed_Entity;
procedure Set_Renamed_Entity (N : Entity_Id; Val : Node_Id) is
procedure Set_Renamed_Entity (N : Entity_Id; Val : Entity_Id) is
begin
pragma Assert (not Is_Object (N));
pragma Assert (Val in N_Entity_Id);

8
gcc/ada/einfo-utils.ads
View File

@ -42,10 +42,10 @@ package Einfo.Utils is
-- expressions, but those use different mechanisms; the fields here are not
-- used.
function Alias (N : Entity_Id) return Node_Id;
procedure Set_Alias (N : Entity_Id; Val : Node_Id);
function Renamed_Entity (N : Entity_Id) return Node_Id;
procedure Set_Renamed_Entity (N : Entity_Id; Val : Node_Id);
function Alias (N : Entity_Id) return Entity_Id;
procedure Set_Alias (N : Entity_Id; Val : Entity_Id);
function Renamed_Entity (N : Entity_Id) return Entity_Id;
procedure Set_Renamed_Entity (N : Entity_Id; Val : Entity_Id);
function Renamed_Object (N : Entity_Id) return Node_Id;
procedure Set_Renamed_Object (N : Entity_Id; Val : Node_Id);