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

Complete previous change.


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

diff --git a/gcc/ada/a-contai.adb b/gcc/ada/a-contai.adb
index 2ed760cb3ba3..cf1fc9f08948 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);