diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:48:05 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:48:05 +0100 |
commit | 0c3985a955aa99d2970234e2eeb622a6aca2c94c (patch) | |
tree | c657e55a67e37b4e6235e11e4f02a6b1350e7adc /gcc/ada/opt.adb | |
parent | 5acb4d2943c9e6a4ceac29f12f969f0fa4d09f34 (diff) | |
download | gcc-0c3985a955aa99d2970234e2eeb622a6aca2c94c.zip gcc-0c3985a955aa99d2970234e2eeb622a6aca2c94c.tar.gz gcc-0c3985a955aa99d2970234e2eeb622a6aca2c94c.tar.bz2 |
[multiple changes]
2014-02-25 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb (Array_Type_Declaration): Check for case of using
type name as index.
* lib.ads: Minor reformatting.
* einfo.ads: Minor reformatting.
2014-02-25 Doug Rupp <rupp@adacore.com>
* sem_mech.adb (Set_Mechanisms): For convention Fortran on VMS
use Short_Descriptor(S) as the argument passing mechanism.
2014-02-25 Eric Botcazou <ebotcazou@adacore.com>
* sigtramp-ppcvxw.c (CFI_COMMON_REGS): Also include r0.
2014-02-25 Robert Dewar <dewar@adacore.com>
* atree.ads (Warnings_Treated_As_Errors): New variable.
* errout.adb (Error_Msg_Internal): Set Warn_Err flag in
error object (Initialize): Initialize Warnings_As_Errors_Count
(Write_Error_Summary): Include count of warnings treated as errors.
* erroutc.adb (Warning_Treated_As_Error): New function.
(Matches): Function moved to outer level of package.
* erroutc.ads (Error_Msg_Object): Add Warn_Err flag.
(Warning_Treated_As_Error): New function.
* gnat_rm.texi: Document pragma Treat_Warning_As_Error.
* opt.adb: Add handling of Warnings_As_Errors_Count[_Config].
* opt.ads (Config_Switches_Type): Add entry for
Warnings_As_Errors_Count.
(Warnings_As_Errors_Count): New variable.
(Warnings_As_Errors): New array.
* par-prag.adb: Add dummy entry for Warning_As_Error.
* sem_prag.adb (Analyze_Pragma): Implement new pragma
Warning_As_Error.
* snames.ads-tmpl: Add entries for Warning_As_Error pragma.
From-SVN: r208145
Diffstat (limited to 'gcc/ada/opt.adb')
-rw-r--r-- | gcc/ada/opt.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index 30623ea..0ff90a1 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -66,6 +66,7 @@ package body Opt is SPARK_Mode_Config := SPARK_Mode; SPARK_Mode_Pragma_Config := SPARK_Mode_Pragma; Use_VADS_Size_Config := Use_VADS_Size; + Warnings_As_Errors_Count_Config := Warnings_As_Errors_Count; -- Reset the indication that Optimize_Alignment was set locally, since -- if we had a pragma in the config file, it would set this flag True, @@ -103,6 +104,7 @@ package body Opt is SPARK_Mode := Save.SPARK_Mode; SPARK_Mode_Pragma := Save.SPARK_Mode_Pragma; Use_VADS_Size := Save.Use_VADS_Size; + Warnings_As_Errors_Count := Save.Warnings_As_Errors_Count; -- Update consistently the value of Init_Or_Norm_Scalars. The value of -- Normalize_Scalars is not saved/restored because after set to True its @@ -141,6 +143,7 @@ package body Opt is Save.SPARK_Mode := SPARK_Mode; Save.SPARK_Mode_Pragma := SPARK_Mode_Pragma; Save.Use_VADS_Size := Use_VADS_Size; + Save.Warnings_As_Errors_Count := Warnings_As_Errors_Count; end Save_Opt_Config_Switches; ----------------------------- @@ -171,6 +174,9 @@ package body Opt is Use_VADS_Size := False; Optimize_Alignment_Local := True; + -- Note: we do not need to worry about Warnings_As_Errors_Count since + -- we do not expect to get any warnings from compiling such a unit. + -- For an internal unit, assertions/debug pragmas are off unless this -- is the main unit and they were explicitly enabled. We also make -- sure we do not assume that values are necessarily valid and that @@ -212,6 +218,7 @@ package body Opt is SPARK_Mode := SPARK_Mode_Config; SPARK_Mode_Pragma := SPARK_Mode_Pragma_Config; Use_VADS_Size := Use_VADS_Size_Config; + Warnings_As_Errors_Count := Warnings_As_Errors_Count_Config; -- Update consistently the value of Init_Or_Norm_Scalars. The value -- of Normalize_Scalars is not saved/restored because once set to |