diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-03-10 00:14:32 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-25 09:44:19 +0200 |
| commit | 93d0457ec9c03acd009eef3cd5b725172e988648 (patch) | |
| tree | b3a268a631b3869f6b094dc87b94f10ed072838d /gcc/ada/einfo-utils.adb | |
| parent | f7f8e290a11a2d1ab0eefa5a87d4d56f0146f9d4 (diff) | |
| download | gcc-93d0457ec9c03acd009eef3cd5b725172e988648.zip gcc-93d0457ec9c03acd009eef3cd5b725172e988648.tar.gz gcc-93d0457ec9c03acd009eef3cd5b725172e988648.tar.bz2 | |
ada: Use procedural variant of Next_Index where possible
Code cleanup; semantics is unaffected.
gcc/ada/
* einfo-utils.adb (Write_Entity_Info): Use procedural Next_Index.
* sem_aggr.adb (Collect_Aggr_Bounds): Reuse local constant.
(Resolve_Null_Array_Aggregate): Use procedural Next_Index.
Diffstat (limited to 'gcc/ada/einfo-utils.adb')
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index fa28a9e..d1db66f 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -3171,7 +3171,7 @@ package body Einfo.Utils is Index := First_Index (Id); while Present (Index) loop Write_Attribute (" ", Etype (Index)); - Index := Next_Index (Index); + Next_Index (Index); end loop; Write_Eol; |