From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 8 Apr 2008 07:12:22 +0000 (+0200)
Subject: (Task_Address): New subtype
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9874e252439e6e9ba21829d257201fa02a87259e;p=gcc.git

(Task_Address): New subtype

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

From-SVN: r134078
---

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;