gcc/ada/
* inline.adb (Instantiate_Bodies): Fix white in declaration.
(Remove_Dead_Instance): Change iteration from WHILE to FOR.
end if;
end Instantiate_Body;
- J, K : Nat;
+ J, K : Nat;
Info : Pending_Body_Info;
-- Start of processing for Instantiate_Bodies
--------------------------
procedure Remove_Dead_Instance (N : Node_Id) is
- J : Int;
-
begin
- J := 0;
- while J <= Pending_Instantiations.Last loop
+ for J in 0 .. Pending_Instantiations.Last loop
if Pending_Instantiations.Table (J).Inst_Node = N then
Pending_Instantiations.Table (J).Inst_Node := Empty;
return;
end if;
-
- J := J + 1;
end loop;
end Remove_Dead_Instance;