diff options
Diffstat (limited to 'gcc/ada/s-taprop-solaris.adb')
| -rw-r--r-- | gcc/ada/s-taprop-solaris.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index 042fed2..421c60e 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -981,10 +981,11 @@ package body System.Task_Primitives.Operations is -- task, and the CPU value is not contained within the range of -- processors for the domain. - if T.Common.Domain /= null and then - T.Common.Base_CPU /= System.Multiprocessors.Not_A_Specific_CPU and then - (T.Common.Base_CPU not in T.Common.Domain'Range - or else not T.Common.Domain (T.Common.Base_CPU)) + if T.Common.Domain /= null + and then T.Common.Base_CPU /= System.Multiprocessors.Not_A_Specific_CPU + and then + (T.Common.Base_CPU not in T.Common.Domain'Range + or else not T.Common.Domain (T.Common.Base_CPU)) then Succeeded := False; return; |