From 9874e252439e6e9ba21829d257201fa02a87259e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 8 Apr 2008 09:12:22 +0200 Subject: [PATCH] (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 --- gcc/ada/s-taspri-dummy.ads | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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; -- 2.30.2