[gcc r12-5673] [Ada] Make Timed_Task_Entry_Call's defer_abort nestable

[gcc r12-5673] [Ada] Make Timed_Task_Entry_Call's defer_abort nestable

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:dbdb6b93a2808d5c3d518e9675d058fab3b8f89b

commit r12-5673-gdbdb6b93a2808d5c3d518e9675d058fab3b8f89b
Author: Ghjuvan Lacambre <lacambre@adacore.com>
Date:   Tue Nov 16 14:19:07 2021 +0100

    [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.

Diff:
---
 gcc/ada/libgnarl/s-tasren.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/libgnarl/s-tasren.adb b/gcc/ada/libgnarl/s-tasren.adb
index 9498ca0db5c..fa10b0cbbbe 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;