diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-07-23 23:30:53 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-20 03:21:50 -0400 |
| commit | 53642c37e2a585718b6e3c443e64007b4f4bbc14 (patch) | |
| tree | ab222843b05f30f22bea9f6c91331197e8c861da | |
| parent | b21732c521b5edd4919cf828a9716ce6f865b080 (diff) | |
| download | gcc-53642c37e2a585718b6e3c443e64007b4f4bbc14.zip gcc-53642c37e2a585718b6e3c443e64007b4f4bbc14.tar.gz gcc-53642c37e2a585718b6e3c443e64007b4f4bbc14.tar.bz2 | |
[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.
| -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. |