Commit 308ac7f4 by Piotr Trojanek Committed by Pierre-Marie de Rodat

[Ada] Fix convention for iteration with multiple loop variables

Refactoring based on suggestions from GNAT frontend developers.  Semantics
unaffected.

2018-05-25  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* sem_util.adb (Iterate_Call_Parameters): Fix code convention and
	assertions.

From-SVN: r260728
parent 9ea43db6
2018-05-25 Piotr Trojanek <trojanek@adacore.com>
* sem_util.adb (Iterate_Call_Parameters): Fix code convention and
assertions.
2018-05-25 Hristian Kirtchev <kirtchev@adacore.com>
* einfo.adb, einfo.ads, exp_ch3.adb, exp_ch8.adb, exp_unst.adb,
......
......@@ -17882,13 +17882,14 @@ package body Sem_Util is
Formal : Entity_Id := First_Formal (Get_Called_Entity (Call));
begin
while Present (Formal) loop
pragma Assert (Present (Formal));
while Present (Formal) and then Present (Actual) loop
Handle_Parameter (Formal, Actual);
Next_Formal (Formal);
Next_Actual (Actual);
end loop;
pragma Assert (No (Formal));
pragma Assert (No (Actual));
end Iterate_Call_Parameters;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment