diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-27 14:06:06 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-27 14:06:06 +0100 |
| commit | 477b99b63b10d050198e60bf44d8c1d3d89d5a0b (patch) | |
| tree | 0214bfd0d71f1fd62a7120a78eeb8925bd3ed168 /gcc/ada/prj-err.adb | |
| parent | 673beced43fa873c9d4158b9c60424d5392f20a3 (diff) | |
| download | gcc-477b99b63b10d050198e60bf44d8c1d3d89d5a0b.tar.gz | |
[multiple changes]
2009-10-27 Arnaud Charlet <charlet@adacore.com>
* exp_aggr.adb: Fix comment.
2009-10-27 Emmanuel Briot <briot@adacore.com>
* prj-err.adb (Error_Msg): take into account continuation lines when
computing whether we have a warning.
2009-10-27 Vasiliy Fofanov <fofanov@adacore.com>
* make.adb, s-os_lib.adb, s-os_lib.ads (Create_Temp_Output_File): New
routine that is designed to create temp file descriptor specifically
for redirecting an output stream.
From-SVN: r153591
Diffstat (limited to 'gcc/ada/prj-err.adb')
| -rw-r--r-- | gcc/ada/prj-err.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/prj-err.adb b/gcc/ada/prj-err.adb index 8e0d5627a67..cf76c8f1a92 100644 --- a/gcc/ada/prj-err.adb +++ b/gcc/ada/prj-err.adb @@ -23,6 +23,7 @@ -- -- ------------------------------------------------------------------------------ +with Err_Vars; with Output; use Output; with Stringt; use Stringt; @@ -117,7 +118,12 @@ package body Prj.Err is if Flags.Report_Error /= null then Flags.Report_Error (Project, - Is_Warning => Msg (Msg'First) = '?' or else Msg (Msg'First) = '<'); + Is_Warning => Msg (Msg'First) = '?' + or else (Msg (Msg'First) = '<' + and then Err_Vars.Error_Msg_Warn) + or else (Msg (Msg'First) = '\' + and then Msg (Msg'First + 1) = '<' + and then Err_Vars.Error_Msg_Warn)); end if; end Error_Msg; |