diff options
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 | ||||
| -rw-r--r-- | 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..bd205f1f 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. |