mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-05 04:50:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

ada: Seize opportunity to reuse List_Length

Browse Source 
This patch is intended as a readability improvement. It doesn't
change the behavior of the compiler.

gcc/ada/

	* sem_ch3.adb (Constrain_Array): Replace manual list length
	computation by call to List_Length.
This commit is contained in:
Ronan Desplanques 2023-09-29 11:25:18 +02:00 committed by Marc Poulhiès
parent 7b1b787baa
commit 0c29a990a6
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/sem_ch3.adb
View File

@ -13809,7 +13809,7 @@ package body Sem_Ch3 is
Suffix : Character)
is
C : constant Node_Id := Constraint (SI);
Number_Of_Constraints : Nat := 0;
Number_Of_Constraints : constant Nat := List_Length (Constraints (C));
Index : Node_Id;
S, T : Entity_Id;
Constraint_OK : Boolean := True;
@ -13835,12 +13835,6 @@ package body Sem_Ch3 is
Constraint_OK := False;
else
S := First (Constraints (C));
while Present (S) loop
Number_Of_Constraints := Number_Of_Constraints + 1;
Next (S);
end loop;
-- In either case, the index constraint must provide a discrete
-- range for each index of the array type and the type of each
-- discrete range must be the same as that of the corresponding