diff options
Diffstat (limited to 'gcc/ada/s-taspri-vms.ads')
| -rw-r--r-- | gcc/ada/s-taspri-vms.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/s-taspri-vms.ads b/gcc/ada/s-taspri-vms.ads index 891dee28c9d..d0cc429d7e4 100644 --- a/gcc/ada/s-taspri-vms.ads +++ b/gcc/ada/s-taspri-vms.ads @@ -46,6 +46,7 @@ package System.Task_Primitives is pragma Preelaborate; type Lock is limited private; + type RW_Lock is limited private; -- Should be used for implementation of protected objects type RTS_Lock is limited private; @@ -84,6 +85,8 @@ private Prio_Save : Interfaces.C.int; end record; + type RW_Lock is new Lock; + type RTS_Lock is new System.OS_Interface.pthread_mutex_t; type Suspension_Object is record |