diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-02 10:46:07 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-02 10:46:07 +0100 |
| commit | a3633438f36dbcef65df4758dcbc552303ad578d (patch) | |
| tree | 4d0f6d7aa46aefc5cb77c2d6fa4e0ccdcd2aabc0 /gcc/ada/warnsw.adb | |
| parent | 6a04272a9a6981d30d4c21d99f10405c9a48a5c6 (diff) | |
| download | gcc-a3633438f36dbcef65df4758dcbc552303ad578d.zip gcc-a3633438f36dbcef65df4758dcbc552303ad578d.tar.gz gcc-a3633438f36dbcef65df4758dcbc552303ad578d.tar.bz2 | |
[multiple changes]
2013-01-02 Robert Dewar <dewar@adacore.com>
* err_vars.ads (Warning_Doc_Switch): New flag.
* errout.adb (Error_Msg_Internal): Implement new warning flag
doc tag stuff (Set_Msg_Insertion_Warning): New procedure.
* errout.ads: Document new insertion sequences ?? ?x? ?.x?
* erroutc.adb (Output_Msg_Text): Handle ?? and ?x? warning doc
tag stuff.
* erroutc.ads (Warning_Msg_Char): New variable.
(Warn_Chr): New field in error message object.
* errutil.adb (Error_Msg): Set Warn_Chr in error message object.
* sem_ch13.adb: Minor reformatting.
* warnsw.adb: Add handling for -gnatw.d and -gnatw.D
(Warning_Doc_Switch).
* warnsw.ads: Add handling of -gnatw.d/.D switches (warning
doc tag).
2013-01-02 Robert Dewar <dewar@adacore.com>
* opt.ads: Minor reformatting.
2013-01-02 Doug Rupp <rupp@adacore.com>
* init.c: Reorganize VMS section.
(scan_condtions): New function for scanning condition tables.
(__gnat_handle_vms_condtion): Use actual exception name for imported
exceptions vice IMPORTED_EXCEPTION.
Move condition table scanning into separate function. Move formerly
special handled conditions to system condition table. Use SYS$PUTMSG
output to fill exception message field for formally special handled
condtions, in particular HPARITH to provide more clues about cause and
location then raised from the translated image.
From-SVN: r194784
Diffstat (limited to 'gcc/ada/warnsw.adb')
| -rw-r--r-- | gcc/ada/warnsw.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb index 7920ac9..a8d31e4 100644 --- a/gcc/ada/warnsw.adb +++ b/gcc/ada/warnsw.adb @@ -22,8 +22,8 @@ -- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ - -with Opt; use Opt; +with Err_Vars; use Err_Vars; +with Opt; use Opt; package body Warnsw is @@ -52,6 +52,12 @@ package body Warnsw is when 'C' => Warn_On_Unrepped_Components := False; + when 'd' => + Warning_Doc_Switch := True; + + when 'D' => + Warning_Doc_Switch := False; + when 'e' => Address_Clause_Overlay_Warnings := True; Check_Unreferenced := True; |