From 51cf5b3e0a163af22fc48c441ee03dc097650778 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 16 Oct 2015 15:26:51 +0200 Subject: [PATCH] Complete previous change. From-SVN: r228902 --- gcc/ada/a-contai.adb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/ada/a-contai.adb b/gcc/ada/a-contai.adb index 2ed760cb3ba..cf1fc9f0894 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); -- 2.30.2