From fb2bd3a70d29393806e9c21c9568de1170fee9f9 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 23 Nov 2011 11:02:03 +0000 Subject: errout.adb: Minor reformattin (Finalize): Take templates into account for warning suppression. 2011-11-23 Robert Dewar * errout.adb: Minor reformattin (Finalize): Take templates into account for warning suppression. * errout.ads (Set_Specific_Warning_Off): Add Used parameter. * erroutc.adb: Minor reformatting (Finalize): Take generic templates into account for warning suppress. * erroutc.ads (Set_Specific_Warning_Off): Add Used parameter. * sem_prag.adb: Minor reformatting (Analyze_Pragma, case Warnings): Provide Used parameter in call to Set_Specific_Warnings_Off (to deal with generic template case). From-SVN: r181658 --- gcc/ada/erroutc.ads | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gcc/ada/erroutc.ads') diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index a2ac463..6c077b0 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -445,7 +445,8 @@ package Erroutc is procedure Set_Specific_Warning_Off (Loc : Source_Ptr; Msg : String; - Config : Boolean); + Config : Boolean; + Used : Boolean := False); -- This is called in response to the two argument form of pragma Warnings -- where the first argument is OFF, and the second argument is a string -- which identifies a specific warning to be suppressed. The first argument @@ -453,6 +454,8 @@ package Erroutc is -- string from the pragma. Loc is the location of the pragma (which is the -- start of the range to suppress). Config is True for the configuration -- pragma case (where there is no requirement for a matching OFF pragma). + -- Used is set True to disable the check that the warning actually has + -- has the effect of suppressing a warning. procedure Set_Specific_Warning_On (Loc : Source_Ptr; -- cgit v1.1