OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Refine result type of Get_Accessibility

Browse Source 
gcc/ada/

	* sem_util.ads, sem_util.adb (Get_Accessibility): Refine result
	type from Node_Id to Entity_Id.
This commit is contained in:
Piotr Trojanek 2020-07-23 23:30:53 +02:00 committed by Pierre-Marie de Rodat
parent b21732c521
commit 53642c37e2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/sem_util.adb
View File

@ -9568,7 +9568,7 @@ package body Sem_Util is
-- Get_Accessibility --
-----------------------
function Get_Accessibility (E : Entity_Id) return Node_Id is
function Get_Accessibility (E : Entity_Id) return Entity_Id is
begin
-- When minimum accessibility is set for E then we utilize it - except
-- in a few edge cases like the expansion of select statements where

2
gcc/ada/sem_util.ads
View File

@ -1015,7 +1015,7 @@ package Sem_Util is
-- discriminants. Otherwise all components of the parent must be included
-- in the subtype for semantic analysis.
function Get_Accessibility (E : Entity_Id) return Node_Id;
function Get_Accessibility (E : Entity_Id) return Entity_Id;
-- Obtain the accessibility level for a given entity formal taking into
-- account both extra and minimum accessibility.