diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 12:25:19 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 12:25:19 +0200 |
| commit | aca670a0a949d7b79bd7d70997df0e0fbbd71b5d (patch) | |
| tree | 94050b936eaf1e4f99d2f8a0807cf0f887224fe3 /gcc/ada/erroutc.adb | |
| parent | d2adb45e357e4416bca760e3c98fba735e99393e (diff) | |
| download | gcc-aca670a0a949d7b79bd7d70997df0e0fbbd71b5d.zip gcc-aca670a0a949d7b79bd7d70997df0e0fbbd71b5d.tar.gz gcc-aca670a0a949d7b79bd7d70997df0e0fbbd71b5d.tar.bz2 | |
[multiple changes]
2014-06-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Analyze_Pragma): Add local
variable Missing_Parentheses. Emit an error when a state
declaration with options appears without parentheses. Add a
guard to prevent a bogus error when a state declaration may be
interpreted as an option if a previous declaration with options
was not parenthesized.
2014-06-13 Robert Dewar <dewar@adacore.com>
* checks.adb: Validate_Alignment_Check_Warnings: New procedure
(Apply_Address_Clause_Check): Make Aligment_Warnings table entry.
* checks.ads (Alignment_Warnings_Record): New type.
(Alignment_Warnings): New table
(Validate_Alignment_Check_Warnings): New procedure.
* errout.adb (Delete_Warning_And_Continuations): New procedure
(Error_Msg_Internal): Set Warning_Msg (Delete_Warning): Handle
Warnings_Treated_As_Errors (Finalize): Minor reformatting
* errout.ads (Warning_Msg): New variable
(Delete_Warning_And_Continuations): New procedure
* erroutc.adb (Delete_Msg): Handle Warnings_Treated_As_Errors count.
* gnat1drv.adb (Post_Compilation_Validation_Checks): New procedure.
2014-06-13 Ed Schonberg <schonberg@adacore.com>
* a-coinho.adb, a-coinho.ads: Add Reference machinery.
From-SVN: r211627
Diffstat (limited to 'gcc/ada/erroutc.adb')
| -rw-r--r-- | gcc/ada/erroutc.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index eb54a02..66ab8f1 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -140,6 +140,11 @@ package body Erroutc is if Errors.Table (D).Warn or else Errors.Table (D).Style then Warnings_Detected := Warnings_Detected - 1; + if Errors.Table (D).Warn_Err then + Warnings_Treated_As_Errors := + Warnings_Treated_As_Errors + 1; + end if; + else Total_Errors_Detected := Total_Errors_Detected - 1; |