diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-01-05 23:53:42 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-03 06:01:30 -0400 |
| commit | 99859ea756671ac375a231d803623394de872ece (patch) | |
| tree | 8ddda9aefa88ec3daa57d0bae866dec944144a48 /gcc/ada/sem_ch4.adb | |
| parent | fe2684adda4c471b48e1cb1a69a8ea3d02bf4e1a (diff) | |
| download | gcc-99859ea756671ac375a231d803623394de872ece.zip gcc-99859ea756671ac375a231d803623394de872ece.tar.gz gcc-99859ea756671ac375a231d803623394de872ece.tar.bz2 | |
[Ada] Iterate with procedural versions of Next_... routines where possible
2020-06-03 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* checks.adb, einfo.adb, exp_aggr.adb, exp_ch4.adb, exp_ch6.adb,
exp_unst.adb, exp_util.adb, freeze.adb, inline.adb, repinfo.adb,
sem_aggr.adb, sem_attr.adb, sem_aux.adb, sem_ch13.adb,
sem_ch3.adb, sem_ch4.adb, sem_ch8.adb, sem_elab.adb,
sem_eval.adb, sem_prag.adb, sem_res.adb, sem_smem.adb,
sem_util.adb, treepr.adb: Replace uses of Next_ functions with
corresponding procedures.
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 787ba3e..7b8548f 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6019,7 +6019,7 @@ package body Sem_Ch4 is return; end if; - Comp := First_Entity (Prefix); + Comp := First_Entity (Prefix); while Nr_Of_Suggestions <= Max_Suggestions and then Present (Comp) loop if Is_Visible_Component (Comp, Sel) then if Is_Bad_Spelling_Of (Chars (Comp), Chars (Sel)) then @@ -6033,7 +6033,7 @@ package body Sem_Ch4 is end if; end if; - Comp := Next_Entity (Comp); + Next_Entity (Comp); end loop; -- Report at most two suggestions @@ -7531,7 +7531,7 @@ package body Sem_Ch4 is Formal := First_Entity (It.Nam); if Op = Second_Op then - Formal := Next_Entity (Formal); + Next_Entity (Formal); end if; if Is_Descendant_Of_Address (Etype (Formal)) then |