diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
commit | 3f1bc2cf467b4b05d02a51c74947f39099749cde (patch) | |
tree | 56f2a46c5385f462155fe01b0bdcb4519cc7ea8a /gcc/ada/warnsw.adb | |
parent | b07b7acecfd5b064a30b15b4767401ff56a60da7 (diff) | |
download | gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.zip gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.tar.gz gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.tar.bz2 |
[multiple changes]
2014-07-16 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_prag.adb, sem_util.adb, sem_res.adb, sem_ch13.adb:
Minor code reorganization (use Is_Access_Type, not in Access_Kind).
* exp_ch3.adb: Minor code reorganization, use Is_Access_Type,
not in Access_Kind.
* par-ch4.adb (At_Start_Of_Attribute): New function
(P_Simple_Expression): Better msg for bad attribute prefix.
* scans.ads: Minor reformatting.
2014-07-16 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Resolve_Attribute, case 'Update): If choice is a
static constant, check that in belongs to the corresponding index
subtype, to produce the proer warning when expansion is disabled.
2014-07-16 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Warn on incompatible size/alignment.
* gnat_ugn.texi: Document -gnatw.z and -gnatw.Z.
* ug_words: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for -gnatw.z/-gnatw.Z
* usage.adb: Add lines for -gnatw.z/-gnatw.Z.
* vms_data.ads: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for
-gnatw.z/-gnatw.Z
* warnsw.adb: Set Warn_On_Size_Alignment appropriately.
* warnsw.ads (Warn_On_Size_Alignment): New flag Minor
reformatting.
From-SVN: r212656
Diffstat (limited to 'gcc/ada/warnsw.adb')
-rw-r--r-- | gcc/ada/warnsw.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/warnsw.adb b/gcc/ada/warnsw.adb index 9691c10..36ae421 100644 --- a/gcc/ada/warnsw.adb +++ b/gcc/ada/warnsw.adb @@ -78,6 +78,7 @@ package body Warnsw is Warn_On_Record_Holes := Setting; Warn_On_Redundant_Constructs := Setting; Warn_On_Reverse_Bit_Order := Setting; + Warn_On_Size_Alignment := Setting; Warn_On_Standard_Redefinition := Setting; Warn_On_Suspicious_Contract := Setting; Warn_On_Suspicious_Modulus_Value := Setting; @@ -170,6 +171,8 @@ package body Warnsw is W.Warn_On_Redundant_Constructs; Warn_On_Reverse_Bit_Order := W.Warn_On_Reverse_Bit_Order; + Warn_On_Size_Alignment := + W.Warn_On_Size_Alignment; Warn_On_Standard_Redefinition := W.Warn_On_Standard_Redefinition; Warn_On_Suspicious_Contract := @@ -270,6 +273,8 @@ package body Warnsw is Warn_On_Redundant_Constructs; W.Warn_On_Reverse_Bit_Order := Warn_On_Reverse_Bit_Order; + W.Warn_On_Size_Alignment := + Warn_On_Size_Alignment; W.Warn_On_Standard_Redefinition := Warn_On_Standard_Redefinition; W.Warn_On_Suspicious_Contract := @@ -421,6 +426,12 @@ package body Warnsw is when 'Y' => List_Body_Required_Info := False; + when 'z' => + Warn_On_Size_Alignment := True; + + when 'Z' => + Warn_On_Size_Alignment := False; + when others => if Ignore_Unrecognized_VWY_Switches then Write_Line ("unrecognized switch -gnatw." & C & " ignored"); @@ -454,6 +465,7 @@ package body Warnsw is Warn_On_Non_Local_Exception := False; No_Warn_On_Non_Local_Exception := True; Warn_On_Reverse_Bit_Order := False; + Warn_On_Size_Alignment := False; Warn_On_Unrepped_Components := False; end Set_GNAT_Mode_Warnings; @@ -660,6 +672,7 @@ package body Warnsw is Warn_On_Questionable_Missing_Parens := True; Warn_On_Redundant_Constructs := True; Warn_On_Reverse_Bit_Order := True; + Warn_On_Size_Alignment := True; Warn_On_Suspicious_Contract := True; Warn_On_Unchecked_Conversion := True; Warn_On_Unrecognized_Pragma := True; |