From 9874e252439e6e9ba21829d257201fa02a87259e Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
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 06cb9c13d6ed..42fdabf91476 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;
--
GitLab