diff options
| author | Pascal Obry <obry@adacore.com> | 2006-02-15 10:29:59 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:29:59 +0100 |
| commit | 57d8e34e5353358671adf5ac00f2704664312823 (patch) | |
| tree | 09d900d2aba5ebd3960c5ca1bbb5429059b559b4 /gcc/ada/s-taprop-vms.adb | |
| parent | 1dd5ad55ebf62c67008e1644fc03412c4aeff810 (diff) | |
| download | gcc-57d8e34e5353358671adf5ac00f2704664312823.tar.gz | |
s-taprop-posix.adb, [...] (Create_Task): Remove task adjustment code.
2006-02-13 Pascal Obry <obry@adacore.com>
* s-taprop-posix.adb, s-taprop-vxworks.adb, s-taprop-tru64.adb,
s-taprop-lynxos.adb, s-taprop-irix.adb, s-taprop-hpux-dce.adb,
s-taprop-linux.adb, s-taprop-solaris.adb,
s-taprop-vms.adb (Create_Task): Remove task adjustment code. This
adjustement is already done when calling this routine.
From-SVN: r111026
Diffstat (limited to 'gcc/ada/s-taprop-vms.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vms.adb | 22 |
1 files changed, 4 insertions, 18 deletions
diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 896dbe11c46..95a93b4fa25 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -50,9 +50,6 @@ with Interfaces.C; -- used for int -- size_t -with System.Parameters; --- used for Size_Type - with System.Soft_Links; -- used for Get_Exc_Stack_Addr @@ -766,24 +763,13 @@ package body System.Task_Primitives.Operations is Priority : System.Any_Priority; Succeeded : out Boolean) is - Attributes : aliased pthread_attr_t; - Adjusted_Stack_Size : Interfaces.C.size_t; - Result : Interfaces.C.int; + Attributes : aliased pthread_attr_t; + Result : Interfaces.C.int; function Thread_Body_Access is new Unchecked_Conversion (System.Address, Thread_Body); begin - if Stack_Size = Unspecified_Size then - Adjusted_Stack_Size := Interfaces.C.size_t (Default_Stack_Size); - - elsif Stack_Size < Minimum_Stack_Size then - Adjusted_Stack_Size := Interfaces.C.size_t (Minimum_Stack_Size); - - else - Adjusted_Stack_Size := Interfaces.C.size_t (Stack_Size); - end if; - -- Since the initial signal mask of a thread is inherited from the -- creator, we need to set our local signal mask mask all signals -- during the creation operation, to make sure the new thread is @@ -802,7 +788,7 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0); Result := pthread_attr_setstacksize - (Attributes'Access, Adjusted_Stack_Size); + (Attributes'Access, Interfaces.C.size_t (Stack_Size)); pragma Assert (Result = 0); -- This call may be unnecessary, not sure. ??? |