Complete previous change.

From-SVN: r228902
2015-10-16 15:26:51 +02:00 · 2015-10-16 15:26:51 +02:00 · 51cf5b3e0a
parent 4b8ae2b072
commit 51cf5b3e0a
1 changed files with 2 additions and 0 deletions
--- 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);