diff options
Diffstat (limited to 'gcc/ada/s-tpoben.ads')
| -rw-r--r-- | gcc/ada/s-tpoben.ads | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/s-tpoben.ads b/gcc/ada/s-tpoben.ads index f0684113f20..ce7045cf56e 100644 --- a/gcc/ada/s-tpoben.ads +++ b/gcc/ada/s-tpoben.ads @@ -76,8 +76,7 @@ package System.Tasking.Protected_Objects.Entries is type Protection_Entries (Num_Entries : Protected_Entry_Index) is new Ada.Finalization.Limited_Controlled with record - L : aliased Task_Primitives.Lock; - RWL : aliased Task_Primitives.RW_Lock; + L : aliased Task_Primitives.Lock; -- The underlying lock associated with a Protection_Entries. -- Note that you should never (un)lock Object.L directly, but instead -- use Lock_Entries/Unlock_Entries. |