diff options
| author | Ian Lance Taylor <iant@golang.org> | 2021-09-13 10:37:49 -0700 |
|---|---|---|
| committer | Ian Lance Taylor <iant@golang.org> | 2021-09-13 10:37:49 -0700 |
| commit | e252b51ccde010cbd2a146485d8045103cd99533 (patch) | |
| tree | e060f101cdc32bf5e520de8e5275db9d4236b74c /gcc/ada/binde.adb | |
| parent | f10c7c4596dda99d2ee872c995ae4aeda65adbdf (diff) | |
| parent | 104c05c5284b7822d770ee51a7d91946c7e56d50 (diff) | |
| download | gcc-e252b51ccde010cbd2a146485d8045103cd99533.zip gcc-e252b51ccde010cbd2a146485d8045103cd99533.tar.gz gcc-e252b51ccde010cbd2a146485d8045103cd99533.tar.bz2 | |
Merge from trunk revision 104c05c5284b7822d770ee51a7d91946c7e56d50.
Diffstat (limited to 'gcc/ada/binde.adb')
| -rw-r--r-- | gcc/ada/binde.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index 97b2764..3df78bf 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2021, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -2327,7 +2327,7 @@ package body Binde is -- subsumed by their parent units, but we need to list them for other -- tools. For now they are listed after other files, rather than right -- after their parent, since there is no easy link between the - -- elaboration table and the ALIs table ??? As subunits may appear + -- elaboration table and the ALIs table. As subunits may appear -- repeatedly in the list, if the parent unit appears in the context of -- several units in the closure, duplicates are suppressed. @@ -2811,7 +2811,7 @@ package body Binde is or else Withs.Table (W).Elab_All_Desirable then if SCC (U) = SCC (Withed_Unit) then - Elab_Cycle_Found := True; -- ??? + Elab_Cycle_Found := True; -- We could probably give better error messages -- than Elab_Old here, but for now, to avoid @@ -2873,10 +2873,10 @@ package body Binde is end if; -- If there are no nodes with predecessors, then either we are - -- done, as indicated by Num_Left being set to zero, or we have - -- a circularity. In the latter case, diagnose the circularity, - -- removing it from the graph and continue. - -- ????But Diagnose_Elaboration_Problem always raises an + -- done, as indicated by Num_Left being set to zero, or we have a + -- circularity. In the latter case, diagnose the circularity, + -- removing it from the graph and + -- continue. Diagnose_Elaboration_Problem always raises an -- exception, so the loop never goes around more than once. Get_No_Pred : while No_Pred = No_Unit_Id loop @@ -3086,11 +3086,11 @@ package body Binde is Outer : loop -- If there are no nodes with predecessors, then either we are - -- done, as indicated by Num_Left being set to zero, or we have - -- a circularity. In the latter case, diagnose the circularity, + -- done, as indicated by Num_Left being set to zero, or we have a + -- circularity. In the latter case, diagnose the circularity, -- removing it from the graph and continue. - -- ????But Diagnose_Elaboration_Problem always raises an - -- exception, so the loop never goes around more than once. + -- Diagnose_Elaboration_Problem always raises an exception, so the + -- loop never goes around more than once. Get_No_Pred : while No_Pred = No_Unit_Id loop exit Outer when Num_Left < 1; |