diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:29:59 +0000 |
| commit | f1fc6450c31c204e194588caba65e5cbddd50d8d (patch) | |
| tree | 09d900d2aba5ebd3960c5ca1bbb5429059b559b4 /gcc/ada/s-taprop-irix.adb | |
| parent | 4fea14f79423d6531d258b85911bd0e9a21c6266 (diff) | |
| download | gcc-f1fc6450c31c204e194588caba65e5cbddd50d8d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111026 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-irix.adb')
| -rw-r--r-- | gcc/ada/s-taprop-irix.adb | 36 |
1 files changed, 5 insertions, 31 deletions
diff --git a/gcc/ada/s-taprop-irix.adb b/gcc/ada/s-taprop-irix.adb index 5c610b05854..8b048e47257 100644 --- a/gcc/ada/s-taprop-irix.adb +++ b/gcc/ada/s-taprop-irix.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- -- @@ -60,19 +60,6 @@ with System.OS_Primitives; with System.IO; -- used for Put_Line -with System.Parameters; --- used for Size_Type - -with System.Program_Info; --- used for Default_Task_Stack --- Default_Time_Slice --- Stack_Guard_Pages --- Pthread_Sched_Signal --- Pthread_Arena_Size - -with System.OS_Interface; --- used for various type, constant, and operations - with Unchecked_Conversion; with Unchecked_Deallocation; @@ -763,10 +750,9 @@ package body System.Task_Primitives.Operations is is use System.Task_Info; - Attributes : aliased pthread_attr_t; - Sched_Param : aliased struct_sched_param; - Adjusted_Stack_Size : Interfaces.C.size_t; - Result : Interfaces.C.int; + Attributes : aliased pthread_attr_t; + Sched_Param : aliased struct_sched_param; + Result : Interfaces.C.int; function Thread_Body_Access is new Unchecked_Conversion (System.Address, Thread_Body); @@ -779,18 +765,6 @@ package body System.Task_Primitives.Operations is (System.Task_Info.Thread_Scheduling_Policy, Interfaces.C.int); begin - if Stack_Size = System.Parameters.Unspecified_Size then - Adjusted_Stack_Size := - Interfaces.C.size_t (System.Program_Info.Default_Task_Stack); - - elsif Stack_Size < Size_Type (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; - Result := pthread_attr_init (Attributes'Access); pragma Assert (Result = 0 or else Result = ENOMEM); @@ -804,7 +778,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); if T.Common.Task_Info /= null then |