diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-16 15:21:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-16 15:21:25 +0200 |
| commit | 79b5eeb0e359cfa6e9e72a4e4696362a0e7148f4 (patch) | |
| tree | 969cea25010639ae9811a44b6bf6f4d08c5dcd60 /gcc | |
| parent | 8434cfc76762f3306fca614b875e3d7625ff001f (diff) | |
| download | gcc-79b5eeb0e359cfa6e9e72a4e4696362a0e7148f4.zip gcc-79b5eeb0e359cfa6e9e72a4e4696362a0e7148f4.tar.gz gcc-79b5eeb0e359cfa6e9e72a4e4696362a0e7148f4.tar.bz2 | |
Complete previous change.
From-SVN: r228900
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-convec.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index b6440f9..a3d7464 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -618,7 +618,9 @@ package body Ada.Containers.Vectors is end Finalize; procedure Finalize (Object : in out Iterator) is + pragma Warnings (Off); pragma Assert (T_Check); -- not called if check suppressed + pragma Warnings (On); begin Unbusy (Object.Container.TC); end Finalize; |