diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-11-23 11:02:03 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 12:02:03 +0100 |
| commit | fb2bd3a70d29393806e9c21c9568de1170fee9f9 (patch) | |
| tree | 7db57e1d95683f3bef8a703b838fa8e8f198edba /gcc/ada/erroutc.ads | |
| parent | a1092b4889d054ba1f979e8a3e1672465610300c (diff) | |
| download | gcc-fb2bd3a70d29393806e9c21c9568de1170fee9f9.zip gcc-fb2bd3a70d29393806e9c21c9568de1170fee9f9.tar.gz gcc-fb2bd3a70d29393806e9c21c9568de1170fee9f9.tar.bz2 | |
errout.adb: Minor reformattin (Finalize): Take templates into account for warning suppression.
2011-11-23 Robert Dewar <dewar@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/erroutc.ads')
| -rw-r--r-- | gcc/ada/erroutc.ads | 5 |
1 files changed, 4 insertions, 1 deletions
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; |