diff options
Diffstat (limited to 'gcc/ada/libgnat/a-cdlili.adb')
-rw-r--r-- | gcc/ada/libgnat/a-cdlili.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/a-cdlili.adb b/gcc/ada/libgnat/a-cdlili.adb index 9122d574d4f..949fb0f5dac 100644 --- a/gcc/ada/libgnat/a-cdlili.adb +++ b/gcc/ada/libgnat/a-cdlili.adb @@ -255,7 +255,7 @@ package body Ada.Containers.Doubly_Linked_Lists is (Element => Position.Node.Element'Access, Control => (Controlled with TC)) do - Lock (TC.all); + Busy (TC.all); end return; end; end Constant_Reference; @@ -1226,7 +1226,7 @@ package body Ada.Containers.Doubly_Linked_Lists is TC : constant Tamper_Counts_Access := Container.TC'Unrestricted_Access; begin return R : constant Reference_Control_Type := (Controlled with TC) do - Lock (TC.all); + Busy (TC.all); end return; end Pseudo_Reference; @@ -1357,7 +1357,7 @@ package body Ada.Containers.Doubly_Linked_Lists is (Element => Position.Node.Element'Access, Control => (Controlled with TC)) do - Lock (TC.all); + Busy (TC.all); end return; end; end Reference; |