From f1fc6450c31c204e194588caba65e5cbddd50d8d Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 15 Feb 2006 09:29:59 +0000 Subject: 2006-02-13 Pascal Obry * 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 --- gcc/ada/s-taprop-vxworks.adb | 25 ++----------------------- 1 file changed, 2 insertions(+), 23 deletions(-) (limited to 'gcc/ada/s-taprop-vxworks.adb') diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index 2165ea7f39c..56a02dda238 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.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- -- @@ -40,11 +40,6 @@ pragma Polling (Off); -- Turn off polling, we do not want ATC polling to take place during -- tasking operations. It causes infinite loops and other problems. -with System.Tasking; --- used for Ada_Task_Control_Block --- Task_Id --- ATCB components and types - with System.Tasking.Debug; -- used for Known_Tasks @@ -54,12 +49,6 @@ with System.Interrupt_Management; -- Signal_ID -- Initialize_Interrupts -with System.OS_Interface; --- used for various type, constant, and operations - -with System.Parameters; --- used for Size_Type - with Interfaces.C; with Unchecked_Conversion; @@ -866,16 +855,6 @@ package body System.Task_Primitives.Operations is is Adjusted_Stack_Size : size_t; begin - if Stack_Size = Unspecified_Size then - Adjusted_Stack_Size := size_t (Default_Stack_Size); - - elsif Stack_Size < Minimum_Stack_Size then - Adjusted_Stack_Size := size_t (Minimum_Stack_Size); - - else - Adjusted_Stack_Size := size_t (Stack_Size); - end if; - -- Ask for four extra bytes of stack space so that the ATCB pointer can -- be stored below the stack limit, plus extra space for the frame of -- Task_Wrapper. This is so the user gets the amount of stack requested @@ -890,7 +869,7 @@ package body System.Task_Primitives.Operations is -- ??? - we should come back and visit this so we can set the task name -- to something appropriate. - Adjusted_Stack_Size := Adjusted_Stack_Size + 2048; + Adjusted_Stack_Size := size_t (Stack_Size) + 2048; -- Since the initial signal mask of a thread is inherited from the -- creator, and the Environment task has all its signals masked, we do -- cgit v1.2.1