diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-11-16 14:19:07 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-01 10:24:41 +0000 |
| commit | dbdb6b93a2808d5c3d518e9675d058fab3b8f89b (patch) | |
| tree | ee360f1442b3189eef4dcfec946c332f3f2a53b2 /gcc | |
| parent | e3102ec09c9b7e58312f3c18c841679db5778458 (diff) | |
| download | gcc-dbdb6b93a2808d5c3d518e9675d058fab3b8f89b.zip gcc-dbdb6b93a2808d5c3d518e9675d058fab3b8f89b.tar.gz gcc-dbdb6b93a2808d5c3d518e9675d058fab3b8f89b.tar.bz2 | |
[Ada] Make Timed_Task_Entry_Call's defer_abort nestable
gcc/ada/
* libgnarl/s-tasren.adb (Timed_Task_Entry_Call): Replace
Defer_Abort and Undefer_Abort with Defer_Abort_Nestable and
Undefer_Abort_Nestable.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnarl/s-tasren.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/libgnarl/s-tasren.adb b/gcc/ada/libgnarl/s-tasren.adb index 9498ca0..fa10b0c 100644 --- a/gcc/ada/libgnarl/s-tasren.adb +++ b/gcc/ada/libgnarl/s-tasren.adb @@ -1452,7 +1452,7 @@ package body System.Tasking.Rendezvous is "potentially blocking operation"; end if; - Initialization.Defer_Abort (Self_Id); + Initialization.Defer_Abort_Nestable (Self_Id); Self_Id.ATC_Nesting_Level := Self_Id.ATC_Nesting_Level + 1; pragma Debug @@ -1487,7 +1487,7 @@ package body System.Tasking.Rendezvous is STPO.Write_Lock (Self_Id); Utilities.Exit_One_ATC_Level (Self_Id); STPO.Unlock (Self_Id); - Initialization.Undefer_Abort (Self_Id); + Initialization.Undefer_Abort_Nestable (Self_Id); raise Tasking_Error; end if; @@ -1500,7 +1500,7 @@ package body System.Tasking.Rendezvous is -- ??? Do we need to yield in case Yielded is False Rendezvous_Successful := Entry_Call.State = Done; - Initialization.Undefer_Abort (Self_Id); + Initialization.Undefer_Abort_Nestable (Self_Id); Entry_Calls.Check_Exception (Self_Id, Entry_Call); end Timed_Task_Entry_Call; |