diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-31 08:40:22 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-31 10:40:22 +0200 |
| commit | 7cda9727babdc93f846191782dcc4c0cdba25d26 (patch) | |
| tree | d9b4cce8e8d74851b26f0940edbef384eadeaf11 /gcc/ada/s-taprop-linux.adb | |
| parent | 0a190dfd4af27afb8eaf03082af81acbb5bf8a80 (diff) | |
| download | gcc-7cda9727babdc93f846191782dcc4c0cdba25d26.zip gcc-7cda9727babdc93f846191782dcc4c0cdba25d26.tar.gz gcc-7cda9727babdc93f846191782dcc4c0cdba25d26.tar.bz2 | |
s-taprop-vxworks.adb, [...]: Minor reformatting.
2011-08-31 Robert Dewar <dewar@adacore.com>
* s-taprop-vxworks.adb, sem_ch5.adb, s-taprop-tru64.adb, exp_alfa.adb,
s-taprop-vms.adb, bindgen.adb, s-mudido.adb, s-mudido.ads,
sem_res.adb, expander.adb, s-taprop-mingw.adb, s-taprop-linux.adb,
s-taprop-solaris.adb, s-mudido-affinity.adb, vms_conv.adb,
s-taprop-irix.adb, s-taprop.ads, s-taskin.adb, s-taskin.ads,
s-taprop-hpux-dce.adb, a-chtgbo.adb, s-taprop-posix.adb: Minor
reformatting.
From-SVN: r178357
Diffstat (limited to 'gcc/ada/s-taprop-linux.adb')
| -rw-r--r-- | gcc/ada/s-taprop-linux.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index 7296ca1..6b3eb0b 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -885,6 +885,7 @@ package body System.Task_Primitives.Operations is elsif T.Common.Domain /= null then declare CPU_Set : aliased cpu_set_t := (bits => (others => False)); + begin -- Set the affinity to all the processors belonging to the -- dispatching domain. @@ -1365,7 +1366,6 @@ package body System.Task_Primitives.Operations is if pthread_setaffinity_np'Address /= System.Null_Address then declare CPU_Set : access cpu_set_t := null; - Result : Interfaces.C.int; begin @@ -1374,6 +1374,7 @@ package body System.Task_Primitives.Operations is -- domain, if any. if T.Common.Base_CPU /= Multiprocessors.Not_A_Specific_CPU then + -- Set the affinity to an unique CPU CPU_Set := new cpu_set_t'(bits => (others => False)); @@ -1389,9 +1390,10 @@ package body System.Task_Primitives.Operations is -- Handle dispatching domains elsif T.Common.Domain /= null and then - (T.Common.Domain /= ST.System_Domain or else - T.Common.Domain.all /= (Multiprocessors.CPU'First .. - Multiprocessors.Number_Of_CPUs => True)) + (T.Common.Domain /= ST.System_Domain + or else T.Common.Domain.all /= + (Multiprocessors.CPU'First .. + Multiprocessors.Number_Of_CPUs => True)) then -- Set the affinity to all the processors belonging to the -- dispatching domain. To avoid changing CPU affinities when @@ -1414,9 +1416,7 @@ package body System.Task_Primitives.Operations is if CPU_Set /= null then Result := pthread_setaffinity_np - (T.Common.LL.Thread, - CPU_SETSIZE / 8, - CPU_Set); + (T.Common.LL.Thread, CPU_SETSIZE / 8, CPU_Set); pragma Assert (Result = 0); end if; end; |