mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 17:30:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] gnatbind: Fix No_Entry_Calls_In_Elaboration_Code message

Browse Source 
gcc/ada/

	* bindo-diagnostics.adb (Output_Invocation_Related_Suggestions):
	Use Cumulative_Restrictions.Set, because Restriction_Active only
	works at compile time.
This commit is contained in:
Bob Duff 2020-06-12 09:58:24 -04:00 committed by Pierre-Marie de Rodat
parent 47484baae5
commit 81fcf43389
1 changed files with 1 additions and 2 deletions

3
gcc/ada/bindo-diagnostics.adb

@ -25,7 +25,6 @@
with Binderr; use Binderr;
with Debug; use Debug;
with Restrict; use Restrict;
with Rident; use Rident;
with Types; use Types;
@ -1144,7 +1143,7 @@ package body Bindo.Diagnostics is
-- within the task body on a select or accept statement, eliminating
-- subsequent invocation edges, thus breaking the cycle.
if not Restriction_Active (No_Entry_Calls_In_Elaboration_Code)
if not Cumulative_Restrictions.Set (No_Entry_Calls_In_Elaboration_Code)
and then Contains_Task_Activation (G, Cycle)
then
Error_Msg_Info