diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-23 11:02:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-23 11:02:03 +0000 |
| commit | 39b257f5ddee46f293389e2fa0505dfcc4e95592 (patch) | |
| tree | 7db57e1d95683f3bef8a703b838fa8e8f198edba /gcc/ada/errout.ads | |
| parent | 95deda50c6099eb629685acbcb32069276a963ad (diff) | |
| download | gcc-39b257f5ddee46f293389e2fa0505dfcc4e95592.tar.gz | |
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).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181658 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 5c1c92ce6b5..ea83a8a7b45 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -771,7 +771,8 @@ package Errout is procedure Set_Specific_Warning_Off (Loc : Source_Ptr; Msg : String; - Config : Boolean) + Config : Boolean; + Used : Boolean := False) renames Erroutc.Set_Specific_Warning_Off; -- This is called in response to the two argument form of pragma Warnings -- where the first argument is OFF, and the second argument is the prefix |