diff options
Diffstat (limited to 'gcc/ada/s-taprop-mingw.adb')
| -rw-r--r-- | gcc/ada/s-taprop-mingw.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 0d380da2c52..ab66a889741 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -902,10 +902,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; |