diff options
author | Robert Dewar <dewar@adacore.com> | 2013-01-04 09:28:49 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-04 10:28:49 +0100 |
commit | 7fcd29e08c49eff92770f7e50895dcfe3d306479 (patch) | |
tree | 366ebbf2aee44184c69781fa0ee3e11affa5e3e5 /gcc/ada/warnsw.adb | |
parent | 67b8ac46a606b677b20b3834beb2d24c27c86e8c (diff) | |
download | gcc-7fcd29e08c49eff92770f7e50895dcfe3d306479.zip gcc-7fcd29e08c49eff92770f7e50895dcfe3d306479.tar.gz gcc-7fcd29e08c49eff92770f7e50895dcfe3d306479.tar.bz2 |
types.ads, [...]: Minor reformatting.
2013-01-04 Robert Dewar <dewar@adacore.com>
* types.ads, prj-conf.adb, par-tchk.adb: Minor reformatting.
2013-01-04 Robert Dewar <dewar@adacore.com>
* par-ch6.adb (P_Subprogram): Better handling of missing IS
after expression function.
* par-util.adb (No_Constraint): Improve handling to avoid bad warnings.
2013-01-04 Robert Dewar <dewar@adacore.com>
* exp_util.ads, exp_util.adb (Insert_Actions): In expression with
actions case, new actions are appended to the sequence rather than
prepended.
2013-01-04 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Document -gnatw.d/w.D (does no apply in VMS mode).
* usage.adb: Add lines for -gnatw.d/w.D switches.
* warnsw.adb: Minor fixes (some missing cases of setting
Warning_Doc_Switch). Reject -gnatw.d and -gnatw.D in VMS mode.
From-SVN: r194895
Diffstat (limited to 'gcc/ada/warnsw.adb')
-rw-r--r-- | gcc/ada/warnsw.adb | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb index a8d31e4..9f8512f 100644 --- a/gcc/ada/warnsw.adb +++ b/gcc/ada/warnsw.adb @@ -53,10 +53,18 @@ package body Warnsw is Warn_On_Unrepped_Components := False; when 'd' => - Warning_Doc_Switch := True; + if Open_VMS_On_Target then + return False; + end if; + + Warning_Doc_Switch := True; when 'D' => - Warning_Doc_Switch := False; + if Open_VMS_On_Target then + return False; + end if; + + Warning_Doc_Switch := False; when 'e' => Address_Clause_Overlay_Warnings := True; @@ -68,6 +76,7 @@ package body Warnsw is Implementation_Unit_Warnings := True; Ineffective_Inline_Warnings := True; List_Inherited_Aspects := True; + Warning_Doc_Switch := True; Warn_On_Ada_2005_Compatibility := True; Warn_On_Ada_2012_Compatibility := True; Warn_On_All_Unread_Out_Parameters := True; @@ -217,6 +226,7 @@ package body Warnsw is Implementation_Unit_Warnings := False; Ineffective_Inline_Warnings := True; List_Inherited_Aspects := False; + Warning_Doc_Switch := False; Warn_On_Ada_2005_Compatibility := True; Warn_On_Ada_2012_Compatibility := True; Warn_On_All_Unread_Out_Parameters := False; @@ -296,6 +306,7 @@ package body Warnsw is Implementation_Unit_Warnings := False; Ineffective_Inline_Warnings := False; List_Inherited_Aspects := False; + Warning_Doc_Switch := False; Warn_On_Ada_2005_Compatibility := False; Warn_On_Ada_2012_Compatibility := False; Warn_On_All_Unread_Out_Parameters := False; |