diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-08-14 10:37:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 10:37:51 +0200 |
| commit | 554846f3b75d52bae87a1d076950eccf34846f4b (patch) | |
| tree | eb32487d160f5457a47e310d937e95ab6a78e61e /gcc/ada/comperr.adb | |
| parent | 8133b9d1470963fdcb4a59de87da8fdd7126ccd3 (diff) | |
| download | gcc-554846f3b75d52bae87a1d076950eccf34846f4b.tar.gz | |
comperr.adb: Fix problem with suppressing warning messages from gigi
2007-08-14 Robert Dewar <dewar@adacore.com>
* comperr.adb: Fix problem with suppressing warning messages from gigi
* erroutc.ads, erroutc.adb, errout.ads,
errout.adb (Write_Eol): Remove trailing spaces before writing the line
(Write_Eol_Keep_Blanks): New procedure to write a line, including
possible trailing spaces.
(Output_Source_Line): Call Write_Eol_Keep_Blanks to output a source line
Fix problem with suppressing warning messages from back end
Improve handling of deleted warnings
* gnat1drv.adb:
Fix problem with suppressing warning messages from back end
Handle setting of Static_Dispatch_Tables flag.
* prepcomp.adb:
Fix problem with suppressing warning messages from back end
* exp_intr.adb: Improve handling of deleted warnings
From-SVN: r127413
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 9b89852c4b6..3a23a92e778 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -120,7 +120,7 @@ package body Comperr is -- Debug flag K disables this behavior (useful for debugging) if Serious_Errors_Detected /= 0 and then not Debug_Flag_K then - Errout.Finalize; + Errout.Finalize (Last_Call => True); Errout.Output_Messages; Set_Standard_Error; |