diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 08:40:22 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 08:40:22 +0000 |
| commit | 83a0ab2a2fd2930fe97279844d6999d51a8b0d94 (patch) | |
| tree | d9b4cce8e8d74851b26f0940edbef384eadeaf11 /gcc/ada/s-taprop-solaris.adb | |
| parent | ea109faa585cfcfd62dc11a5806a6d4fefb9df6b (diff) | |
| download | gcc-83a0ab2a2fd2930fe97279844d6999d51a8b0d94.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178357 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-solaris.adb')
| -rw-r--r-- | gcc/ada/s-taprop-solaris.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index 31862fa10bd..278b32c1101 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -1947,7 +1947,7 @@ package body System.Task_Primitives.Operations is -- pragma CPU if T.Common.Base_CPU /= - System.Multiprocessors.Not_A_Specific_CPU + System.Multiprocessors.Not_A_Specific_CPU then -- The CPU numbering in pragma CPU starts at 1 while the subprogram -- to set the affinity starts at 0, therefore we must substract 1. @@ -1968,6 +1968,7 @@ package body System.Task_Primitives.Operations is if T.Common.Task_Info.CPU = ANY_CPU then Result := 0; + Proc := 0; while Proc < Last_Proc loop Result := p_online (Proc, PR_STATUS); @@ -1988,6 +1989,7 @@ package body System.Task_Primitives.Operations is then raise Invalid_CPU_Number; end if; + Result := processor_bind (P_LWPID, id_t (T.Common.LL.LWP), @@ -1998,15 +2000,15 @@ 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)) + 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)) then declare CPU_Set : aliased psetid_t; - - Result : int; + Result : int; begin Result := pset_create (CPU_Set'Access); @@ -2016,9 +2018,9 @@ package body System.Task_Primitives.Operations is -- dispatching domain. for Proc in T.Common.Domain'Range loop + -- The Ada CPU numbering starts at 1 while the subprogram to - -- set the affinity starts at 0, therefore we must substract - -- 1. + -- set the affinity starts at 0, therefore we must substract 1. if T.Common.Domain (Proc) then Result := |