From f5f6d8d705722d82c007ecfc56cb338ce72ea17c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 22 Jan 2014 15:06:41 +0100 Subject: [multiple changes] 2014-01-22 Robert Dewar * sem_ch3.adb, exp_util.adb, sem_dim.adb, sem_elab.adb, sem_ch8.adb, sem_eval.ads: Minor reformatting. 2014-01-22 Thomas Quinot * sem_eval.adb (Compile_Time_Known_Bounds): Return False for Any_Composite to prevent cascaded errors. 2014-01-22 Yannick Moy * errout.adb (Initialize): Do not insert special entry in Warnings table in GNATprove_Mode. * erroutc.adb (Set_Warnings_Mode_On): Add info in Warnings table in GNATprove_Mode. * gnat1drv.adb (Adjust_Global_Switches): Do not suppress frontend warnings anymore. From-SVN: r206922 --- gcc/ada/erroutc.adb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'gcc/ada/erroutc.adb') diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index e2631f8..81a3c6d 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -1207,14 +1207,18 @@ package body Erroutc is return; end if; - -- Nothing to do unless command line switch to suppress all warnings - -- is off, and the last entry in the warnings table covers this - -- pragma Warnings (On), in which case adjust the end point. + -- Nothing to do unless command line switch to suppress all warnings is + -- off or we are in GNATprove_Mode, and the last entry in the warnings + -- table covers this pragma Warnings (On), in which case adjust the end + -- point. if (Warnings.Last >= Warnings.First and then Warnings.Table (Warnings.Last).Start <= Loc and then Loc <= Warnings.Table (Warnings.Last).Stop) - and then Warning_Mode /= Suppress + and then + (Warning_Mode /= Suppress + or else + GNATprove_Mode) then Warnings.Table (Warnings.Last).Stop := Loc; end if; -- cgit v1.1