diff options
| author | Bob Duff <duff@adacore.com> | 2020-06-12 09:58:24 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-16 05:18:18 -0400 |
| commit | 81fcf43389ea53b223e1c16d60b6d8e735e0a4e4 (patch) | |
| tree | 3d224d5989f3da6e5e6bc4515341a43a521dba47 | |
| parent | 47484baae5aa2c74f1b65547f4436baa040b2728 (diff) | |
| download | gcc-81fcf43389ea53b223e1c16d60b6d8e735e0a4e4.zip gcc-81fcf43389ea53b223e1c16d60b6d8e735e0a4e4.tar.gz gcc-81fcf43389ea53b223e1c16d60b6d8e735e0a4e4.tar.bz2 | |
[Ada] gnatbind: Fix No_Entry_Calls_In_Elaboration_Code message
gcc/ada/
* bindo-diagnostics.adb (Output_Invocation_Related_Suggestions):
Use Cumulative_Restrictions.Set, because Restriction_Active only
works at compile time.
| -rw-r--r-- | gcc/ada/bindo-diagnostics.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/bindo-diagnostics.adb b/gcc/ada/bindo-diagnostics.adb index c2ffe44..ed1abf8 100644 --- a/gcc/ada/bindo-diagnostics.adb +++ b/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 |