@@ -126,6 +126,7 @@ package body System.Tasking.Initialization is
if Self_ID /= null
and then Self_ID.Deferral_Level = 0
and then Self_ID.Pending_ATC_Level < Self_ID.ATC_Nesting_Level
+ and then not Self_ID.Aborting
then
return 1;
else
@@ -115,7 +115,7 @@ package System.Tasking.Initialization is
function Check_Abort_Status return Integer;
-- Returns Boolean'Pos (True) iff abort signal should raise
- -- Standard'Abort_Signal. Only used by IRIX currently.
+ -- Standard'Abort_Signal. Only used by RTEMS currently.
--------------------------
-- Change Base Priority --