OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Complete previous change. 

From-SVN: r228905
This commit is contained in:
Arnaud Charlet 2015-10-16 15:40:04 +02:00
parent f66a9a7613
commit 16e49553f7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/a-contai.adb
View File

@ -63,7 +63,9 @@ package body Ada.Containers is
-------------- --------------
procedure Finalize (Control : in out Reference_Control_Type) is procedure Finalize (Control : in out Reference_Control_Type) is
pragma Warnings (Off);
pragma Assert (T_Check); -- not called if check suppressed pragma Assert (T_Check); -- not called if check suppressed
pragma Warnings (On);
begin begin
if Control.T_Counts /= null then if Control.T_Counts /= null then
Unlock (Control.T_Counts.all); Unlock (Control.T_Counts.all);
@ -75,13 +77,17 @@ package body Ada.Containers is
-- are limited. -- are limited.
procedure Finalize (Busy : in out With_Busy) is procedure Finalize (Busy : in out With_Busy) is
pragma Warnings (Off);
pragma Assert (T_Check); -- not called if check suppressed pragma Assert (T_Check); -- not called if check suppressed
pragma Warnings (On);
begin begin
Unbusy (Busy.T_Counts.all); Unbusy (Busy.T_Counts.all);
end Finalize; end Finalize;
procedure Finalize (Lock : in out With_Lock) is procedure Finalize (Lock : in out With_Lock) is
pragma Warnings (Off);
pragma Assert (T_Check); -- not called if check suppressed pragma Assert (T_Check); -- not called if check suppressed
pragma Warnings (On);
begin begin
Unlock (Lock.T_Counts.all); Unlock (Lock.T_Counts.all);
end Finalize; end Finalize;
@ -91,13 +97,17 @@ package body Ada.Containers is
---------------- ----------------
procedure Initialize (Busy : in out With_Busy) is procedure Initialize (Busy : in out With_Busy) is
pragma Warnings (Off);
pragma Assert (T_Check); -- not called if check suppressed pragma Assert (T_Check); -- not called if check suppressed
pragma Warnings (On);
begin begin
Generic_Implementation.Busy (Busy.T_Counts.all); Generic_Implementation.Busy (Busy.T_Counts.all);
end Initialize; end Initialize;
procedure Initialize (Lock : in out With_Lock) is procedure Initialize (Lock : in out With_Lock) is
pragma Warnings (Off);
pragma Assert (T_Check); -- not called if check suppressed pragma Assert (T_Check); -- not called if check suppressed
pragma Warnings (On);
begin begin
Generic_Implementation.Lock (Lock.T_Counts.all); Generic_Implementation.Lock (Lock.T_Counts.all);
end Initialize; end Initialize;