From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 16 Oct 2015 13:21:25 +0000 (+0000)
Subject: Complete previous change.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9d7b1171c5b4fe214cf182ff90d9b1fdf8118bf4;p=thirdparty%2Fgcc.git

Complete previous change.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228900 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb
index b6440f9f58b9..a3d7464e941e 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;