diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-17 23:06:56 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-07 16:23:11 +0000 |
| commit | 6feab95cbcf0283b6bf4bf2e6e2e38370618930a (patch) | |
| tree | 7f16df5370e34c106d1060e88bc5d6e5a53dedb1 /gcc/ada/inline.adb | |
| parent | 738a0e8dd447409a960c84cf14d05e5bdc985ea6 (diff) | |
| download | gcc-6feab95cbcf0283b6bf4bf2e6e2e38370618930a.zip gcc-6feab95cbcf0283b6bf4bf2e6e2e38370618930a.tar.gz gcc-6feab95cbcf0283b6bf4bf2e6e2e38370618930a.tar.bz2 | |
[Ada] Simplify iteration over pending instantiations
gcc/ada/
* inline.adb (Instantiate_Bodies): Fix white in declaration.
(Remove_Dead_Instance): Change iteration from WHILE to FOR.
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 589c0f3..6c330b2 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -4806,7 +4806,7 @@ package body Inline is end if; end Instantiate_Body; - J, K : Nat; + J, K : Nat; Info : Pending_Body_Info; -- Start of processing for Instantiate_Bodies @@ -5153,17 +5153,12 @@ package body Inline is -------------------------- 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; |