diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-16 15:26:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-16 15:26:51 +0200 |
| commit | 51cf5b3e0a163af22fc48c441ee03dc097650778 (patch) | |
| tree | 1140197d43204f673b8954a9956483cd0ddf6b58 /gcc/ada | |
| parent | 4b8ae2b07254fc6a7b963c5213dafd5ef7eddef2 (diff) | |
| download | gcc-51cf5b3e0a163af22fc48c441ee03dc097650778.zip gcc-51cf5b3e0a163af22fc48c441ee03dc097650778.tar.gz gcc-51cf5b3e0a163af22fc48c441ee03dc097650778.tar.bz2 | |
Complete previous change.
From-SVN: r228902
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/a-contai.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-contai.adb b/gcc/ada/a-contai.adb index 2ed760cb..cf1fc9f 100644 --- a/gcc/ada/a-contai.adb +++ b/gcc/ada/a-contai.adb @@ -34,7 +34,9 @@ package body Ada.Containers is ------------ procedure Adjust (Control : in out Reference_Control_Type) is + pragma Warnings (Off); pragma Assert (T_Check); -- not called if check suppressed + pragma Warnings (On); begin if Control.T_Counts /= null then Lock (Control.T_Counts.all); |