mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:20:34 +08:00
Code Issues Packages Projects Releases Wiki Activity

(Task_Address): New subtype

Browse Source 
(Task_Address): New subtype
(Task_Address_Size): New constant size of System.Address
(Alternate_Stack_Size): New constant.

From-SVN: r134078
This commit is contained in:
Arnaud Charlet 2008-04-08 09:12:22 +02:00
parent efd90a681f
commit 9874e25243
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/s-taspri-dummy.ads
View File

@ -54,4 +54,16 @@ package System.Task_Primitives is
L : aliased RTS_Lock;
end record;
subtype Task_Address is System.Address;
-- In some versions of Task_Primitives, notably for VMS, Task_Address is
-- the short version of address defined in System.Aux_DEC. To avoid
-- dragging Aux_DEC into tasking packages a tasking specific subtype is
-- defined here.
Task_Address_Size : constant := Standard'Address_Size;
-- The size of Task_Address
Alternate_Stack_Size : constant := 0;
-- No alternate signal stack is used on this platform
end System.Task_Primitives;