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/prepcomp.adb | |
| parent | 8133b9d1470963fdcb4a59de87da8fdd7126ccd3 (diff) | |
| download | gcc-554846f3b75d52bae87a1d076950eccf34846f4b.zip gcc-554846f3b75d52bae87a1d076950eccf34846f4b.tar.gz gcc-554846f3b75d52bae87a1d076950eccf34846f4b.tar.bz2 | |
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/prepcomp.adb')
| -rw-r--r-- | gcc/ada/prepcomp.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index 4a590e4..41350b0 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -41,7 +41,7 @@ with Types; use Types; package body Prepcomp is No_Preprocessing : Boolean := True; - -- Set to True if there is at least one source that needs to be + -- Set to False if there is at least one source that needs to be -- preprocessed. Source_Index_Of_Preproc_Data_File : Source_File_Index := No_Source_File; @@ -560,7 +560,7 @@ package body Prepcomp is -- Fail if there were errors in the preprocessing data file if Total_Errors_Detected > T then - Errout.Finalize; + Errout.Finalize (Last_Call => True); Errout.Output_Messages; Fail ("errors found in preprocessing data file """, Get_Name_String (N), @@ -687,7 +687,7 @@ package body Prepcomp is -- Fail if errors were found while processing the definition file if T /= Total_Errors_Detected then - Errout.Finalize; + Errout.Finalize (Last_Call => True); Errout.Output_Messages; Fail ("errors found in definition file """, Get_Name_String (N), |