diff options
-rw-r--r-- | gcc/ada/libgnarl/s-tasini.adb | 1 | ||||
-rw-r--r-- | gcc/ada/libgnarl/s-tasini.ads | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/libgnarl/s-tasini.adb b/gcc/ada/libgnarl/s-tasini.adb index 9acfa49..8d242ee 100644 --- a/gcc/ada/libgnarl/s-tasini.adb +++ b/gcc/ada/libgnarl/s-tasini.adb @@ -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 diff --git a/gcc/ada/libgnarl/s-tasini.ads b/gcc/ada/libgnarl/s-tasini.ads index f35df576..a551d24 100644 --- a/gcc/ada/libgnarl/s-tasini.ads +++ b/gcc/ada/libgnarl/s-tasini.ads @@ -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 -- |