Commit 0cc1d9ad by Eric Botcazou Committed by Pierre-Marie de Rodat

[Ada] Further cleanup in inlining machinery

No practical functional changes.

2019-08-14  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* inline.adb (Add_Pending_Instantiation): Use greater-or-equal
	in the comparison against the maximum number of instantiations.

From-SVN: r274471
parent 022c9dfe
2019-08-14 Eric Botcazou <ebotcazou@adacore.com>
* inline.adb (Add_Pending_Instantiation): Use greater-or-equal
in the comparison against the maximum number of instantiations.
2019-08-14 Ed Schonberg <schonberg@adacore.com> 2019-08-14 Ed Schonberg <schonberg@adacore.com>
* sem_aux.adb (Next_Rep_Item): If a node in the rep chain * sem_aux.adb (Next_Rep_Item): If a node in the rep chain
......
...@@ -794,7 +794,7 @@ package body Inline is ...@@ -794,7 +794,7 @@ package body Inline is
-- Here is a defense against a ludicrous number of instantiations -- Here is a defense against a ludicrous number of instantiations
-- caused by a circular set of instantiation attempts. -- caused by a circular set of instantiation attempts.
if Pending_Instantiations.Last > Maximum_Instantiations then if Pending_Instantiations.Last >= Maximum_Instantiations then
Error_Msg_Uint_1 := UI_From_Int (Maximum_Instantiations); Error_Msg_Uint_1 := UI_From_Int (Maximum_Instantiations);
Error_Msg_N ("too many instantiations, exceeds max of^", Inst); Error_Msg_N ("too many instantiations, exceeds max of^", Inst);
Error_Msg_N ("\limit can be changed using -gnateinn switch", Inst); Error_Msg_N ("\limit can be changed using -gnateinn switch", Inst);
......
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