From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 23 Jul 2020 21:30:53 +0000 (+0200)
Subject: [Ada] Refine result type of Get_Accessibility
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=53642c37e2a585718b6e3c443e64007b4f4bbc14;p=gcc.git

[Ada] Refine result type of Get_Accessibility

gcc/ada/

	* sem_util.ads, sem_util.adb (Get_Accessibility): Refine result
	type from Node_Id to Entity_Id.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index b8bdc7bfa17..bd205f1f3df 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -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
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index 1d6794cb058..0ddeed6ace2 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -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.