diff options
| author | Yannick Moy <moy@adacore.com> | 2023-10-16 12:24:46 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-11-07 10:15:04 +0100 |
| commit | 36fcb4b93003d9eb135564d3eb0d07f27a3e2c47 (patch) | |
| tree | f81291ebf4ba597c2ef6919f8e508f899dfed52a /gcc/ada/sem_res.adb | |
| parent | 76bf4321331b1d453555602407029344e1e1ee4a (diff) | |
| download | gcc-36fcb4b93003d9eb135564d3eb0d07f27a3e2c47.zip gcc-36fcb4b93003d9eb135564d3eb0d07f27a3e2c47.tar.gz gcc-36fcb4b93003d9eb135564d3eb0d07f27a3e2c47.tar.bz2 | |
ada: Rename Is_Limited_View to reflect actual query
Function Sem_Aux.Is_Limited_View returns whether the type is
"inherently limited" in a slightly different way from the "immutably
limited" definition in Ada 2012. Rename for clarity.
gcc/ada/
* exp_aggr.adb: Apply the renaming.
* exp_ch3.adb: Same.
* exp_ch4.adb: Same.
* exp_ch6.adb: Same.
* exp_ch7.adb: Same.
* exp_util.adb: Same.
* freeze.adb: Same.
* sem_aggr.adb: Same.
* sem_attr.adb: Same.
* sem_aux.adb: Alphabetize Is_Limited_Type. Rename.
* sem_aux.ads: Same.
* sem_ch3.adb: Apply the renaming.
* sem_ch6.adb: Same.
* sem_ch8.adb: Same.
* sem_prag.adb: Same.
* sem_res.adb: Same.
* sem_util.adb: Same.
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index e7b0b8b..fa1365c 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -5451,7 +5451,7 @@ package body Sem_Res is -- of the current b-i-p implementation to unify the handling for -- multiple kinds of storage pools). ??? - if Is_Limited_View (Desig_T) + if Is_Inherently_Limited_Type (Desig_T) and then Nkind (Expression (E)) = N_Function_Call then declare @@ -5716,7 +5716,7 @@ package body Sem_Res is if Ada_Version >= Ada_2012 and then Is_Limited_Type (Desig_T) - and then not Is_Limited_View (Scope (Discr)) + and then not Is_Inherently_Limited_Type (Scope (Discr)) then Error_Msg_N ("only immutably limited types can have anonymous " |