diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:12:22 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:12:22 +0200 |
| commit | 9874e252439e6e9ba21829d257201fa02a87259e (patch) | |
| tree | f6cf2cc4a12fdc7be73080a6d669795d1f55ab89 /gcc | |
| parent | efd90a681f1c34cbb648f166fc9a5b0af6adee34 (diff) | |
| download | gcc-9874e252439e6e9ba21829d257201fa02a87259e.zip gcc-9874e252439e6e9ba21829d257201fa02a87259e.tar.gz gcc-9874e252439e6e9ba21829d257201fa02a87259e.tar.bz2 | |
(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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/s-taspri-dummy.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/s-taspri-dummy.ads b/gcc/ada/s-taspri-dummy.ads index 06cb9c1..42fdabf 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; |