diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 15:55:43 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 15:55:43 +0200 |
| commit | 9f55bc6268042e7bb53627f366fa0e2d0e626ff5 (patch) | |
| tree | 894bb96665c4da61e1c1a8cc7d06587a70198889 /gcc/ada/s-taprop-linux.adb | |
| parent | d7386a7a07949458aad3cfe7fdeb4a6b9024b11c (diff) | |
| download | gcc-9f55bc6268042e7bb53627f366fa0e2d0e626ff5.zip gcc-9f55bc6268042e7bb53627f366fa0e2d0e626ff5.tar.gz gcc-9f55bc6268042e7bb53627f366fa0e2d0e626ff5.tar.bz2 | |
[multiple changes]
2011-09-01 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, s-taprop-linux.adb, gnatls.adb: Minor reformatting.
2011-09-01 Jose Ruiz <ruiz@adacore.com>
* adaint.h (__gnat_cpu_free): Fix the name of this profile.
* adaint.c (__gnat_cpu_alloc, __gnat_cpu_alloc_size, __gnat_cpu_free,
__gnat_cpu_zero, __gnat_cpu_set): Create version of these subprograms
specific for systems where their glibc version does not define the
routines to handle dynamically allocated CPU sets.
2011-09-01 Vincent Celier <celier@adacore.com>
* prj-proc.adb, prj.ads, prj-nmsc.adb, prj-util.adb, prj-util.ads,
prj-env.adb: Implement inheritance of naming exceptions in extending
projects.
From-SVN: r178418
Diffstat (limited to 'gcc/ada/s-taprop-linux.adb')
| -rw-r--r-- | gcc/ada/s-taprop-linux.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index 2034566..6eeaf62 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -870,7 +870,8 @@ package body System.Task_Primitives.Operations is elsif T.Common.Base_CPU /= System.Multiprocessors.Not_A_Specific_CPU then declare CPUs : constant size_t := - Interfaces.C.size_t (System.Multiprocessors.Number_Of_CPUs); + Interfaces.C.size_t + (System.Multiprocessors.Number_Of_CPUs); CPU_Set : constant cpu_set_t_ptr := CPU_ALLOC (CPUs); Size : constant size_t := CPU_ALLOC_SIZE (CPUs); @@ -909,7 +910,8 @@ package body System.Task_Primitives.Operations is then declare CPUs : constant size_t := - Interfaces.C.size_t (System.Multiprocessors.Number_Of_CPUs); + Interfaces.C.size_t + (System.Multiprocessors.Number_Of_CPUs); CPU_Set : constant cpu_set_t_ptr := CPU_ALLOC (CPUs); Size : constant size_t := CPU_ALLOC_SIZE (CPUs); @@ -943,6 +945,7 @@ package body System.Task_Primitives.Operations is Attributes'Access, Thread_Body_Access (Wrapper), To_Address (T)); + pragma Assert (Result = 0 or else Result = EAGAIN or else Result = ENOMEM); @@ -985,6 +988,7 @@ package body System.Task_Primitives.Operations is if T.Known_Tasks_Index /= -1 then Known_Tasks (T.Known_Tasks_Index) := null; end if; + SC.Invalidate_Stack_Cache (T.Common.Compiler_Data.Pri_Stack_Info'Access); Free (Tmp); @@ -1403,7 +1407,8 @@ package body System.Task_Primitives.Operations is then declare CPUs : constant size_t := - Interfaces.C.size_t (System.Multiprocessors.Number_Of_CPUs); + Interfaces.C.size_t + (System.Multiprocessors.Number_Of_CPUs); CPU_Set : cpu_set_t_ptr := null; Size : constant size_t := CPU_ALLOC_SIZE (CPUs); |