diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 12:36:41 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 12:36:41 +0000 |
| commit | e6bd3967e54965d9b07823192c9772d71ba2d10b (patch) | |
| tree | 6d0b2480705fa940efad2d1f74cddcb48d7b0511 /gcc/ada/s-taspri-vxworks.ads | |
| parent | 1336ab126a09c21576c34cc2da416d114b6cab4b (diff) | |
| download | gcc-e6bd3967e54965d9b07823192c9772d71ba2d10b.tar.gz | |
2008-05-21 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r135714
* gcc/basilys.h: explicit [re-]declaration of fatail_error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@135715 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taspri-vxworks.ads')
| -rw-r--r-- | gcc/ada/s-taspri-vxworks.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/s-taspri-vxworks.ads b/gcc/ada/s-taspri-vxworks.ads index b499b217bec..19998db97ed 100644 --- a/gcc/ada/s-taspri-vxworks.ads +++ b/gcc/ada/s-taspri-vxworks.ads @@ -62,6 +62,18 @@ package System.Task_Primitives is -- A component of this type is guaranteed to be included in the -- Ada_Task_Control_Block. + 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 + private type Priority_Type is (Prio_None, Prio_Protect, Prio_Inherit); |