summaryrefslogtreecommitdiff
path: root/gcc/ada/s-taprop-vxworks.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2006-02-15 09:29:59 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2006-02-15 09:29:59 +0000
commitf1fc6450c31c204e194588caba65e5cbddd50d8d (patch)
tree09d900d2aba5ebd3960c5ca1bbb5429059b559b4 /gcc/ada/s-taprop-vxworks.adb
parent4fea14f79423d6531d258b85911bd0e9a21c6266 (diff)
downloadgcc-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-vxworks.adb')
-rw-r--r--gcc/ada/s-taprop-vxworks.adb25
1 files changed, 2 insertions, 23 deletions
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