(Task_Address): New subtype

(Task_Address_Size): New constant size of System.Address
(Alternate_Stack_Size): New constant.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134078 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 12 insertions, 0 deletions

diff --git a/gcc/ada/s-taspri-dummy.ads b/gcc/ada/s-taspri-dummy.ads
index 06cb9c13d6e..42fdabf9147 100644
--- a/gcc/ada/s-taspri-dummy.ads
+++ b/gcc/ada/s-taspri-dummy.ads
@@ -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;