From 53642c37e2a585718b6e3c443e64007b4f4bbc14 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 23 Jul 2020 23:30:53 +0200 Subject: [PATCH] [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. --- gcc/ada/sem_util.adb | 2 +- gcc/ada/sem_util.ads | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index b8bdc7b..bd205f1 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 1d6794c..0ddeed6 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. -- 2.7.4