diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 13:05:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 13:05:25 +0200 |
| commit | 17cf9038e10e7b5249645d22621287ffb8280143 (patch) | |
| tree | c4ae7b5f562ad64a46ade314191f1169ecc0f74d /gcc/ada/usage.adb | |
| parent | 632f2871edb2859c94d8fca573a1f74606a14332 (diff) | |
| download | gcc-17cf9038e10e7b5249645d22621287ffb8280143.zip gcc-17cf9038e10e7b5249645d22621287ffb8280143.tar.gz gcc-17cf9038e10e7b5249645d22621287ffb8280143.tar.bz2 | |
[multiple changes]
2014-05-21 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Clearly document -gnatw.g (GNAT warnings).
Clearly document -gnatyg (GNAT style switches).
* usage.adb: Add line line for -gnatw.g (GNAT warnings) More
detail for line for -gnatyg (GNAT style switches) -gnatw.d/D is
available for VMS after all.
* warnsw.adb: Reorganize to eliminate duplicated code
(Restore_Warnings): Add a couple of missing entries
(Save_Warnings): Add a couple of missing entries.
* warnsw.ads: Add missing entries to Warning_Record (not clear
what the impact is).
2014-05-21 Robert Dewar <dewar@adacore.com>
* errout.adb (Set_Msg_Insertion_Warning): Handle ?*? (restriction
warning) case.
* errout.ads: Document ?*? (restriction warning) insertion.
* erroutc.adb (Get_Warning_Tag): Deal with ?*? (restriction
warning) case.
* erroutc.ads: Document use of * for restriction warning tag.
* restrict.adb (Restriction_Msg): Tag with ?*? instead of ??.
2014-05-21 Ed Schonberg <schonberg@adacore.com>
* sem_ch9.adb (Push_Scope_And_Install_Discriminants): Do not
make discriminants immediately visible when analyzing an aspect
of a subtype declaration.
(Uninstall_Discriminants): Do not apply to the entity in a
subtype declaration.
From-SVN: r210693
Diffstat (limited to 'gcc/ada/usage.adb')
| -rw-r--r-- | gcc/ada/usage.adb | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 99fb652..4516bb2 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -121,8 +121,8 @@ begin Write_Eol; -- Individual lines for switches. Write_Switch_Char outputs fourteen - -- characters, so the remaining message is allowed to be a maximum - -- of 65 characters to be comfortable in an 80 character window. + -- characters, so the remaining message is allowed to be a maximum of + -- 65 characters to be comfortable in an 80 character window. -- Line for -gnata switch @@ -494,16 +494,8 @@ begin Write_Line (" .C* turn off warnings for unrepped components"); Write_Line (" d turn on warnings for implicit dereference"); Write_Line (" D* turn off warnings for implicit dereference"); - - -- Switches -gnatw.d/w.D not available on VMS - - if not OpenVMS_On_Target then - Write_Line - (" .d turn on tagging of warnings with -gnatw switch"); - Write_Line - (" .D* turn off tagging of warnings with -gnatw switch"); - end if; - + Write_Line (" .d turn on tagging of warnings with -gnatw switch"); + Write_Line (" .D* turn off tagging of warnings with -gnatw switch"); Write_Line (" e treat all warnings (but not info) as errors"); Write_Line (" .e turn on every optional info/warning " & "(no exceptions)"); @@ -511,6 +503,7 @@ begin Write_Line (" F* turn off warnings for unreferenced formal"); Write_Line (" g*+ turn on warnings for unrecognized pragma"); Write_Line (" G turn off warnings for unrecognized pragma"); + Write_Line (" .g turn on GNAT warnings, same as Aao.sI.C.V.X"); Write_Line (" h turn on warnings for hiding declarations"); Write_Line (" H* turn off warnings for hiding declarations"); Write_Line (" .h turn on warnings for holes in records"); @@ -640,7 +633,7 @@ begin Write_Line (" d check no DOS line terminators"); Write_Line (" e check end/exit labels present"); Write_Line (" f check no form feeds/vertical tabs in source"); - Write_Line (" g check standard GNAT style rules"); + Write_Line (" g check standard GNAT style rules, same as ydISux"); Write_Line (" h check no horizontal tabs in source"); Write_Line (" i check if-then layout"); Write_Line (" I check mode in"); |