diff options
Diffstat (limited to 'gcc/ada/errutil.adb')
| -rw-r--r-- | gcc/ada/errutil.adb | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index 5548d53..b3674a1 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -25,7 +25,9 @@ with Atree; use Atree; with Err_Vars; use Err_Vars; +with Errid; use Errid; with Erroutc; use Erroutc; +with Errsw; use Errsw; with Namet; use Namet; with Opt; use Opt; with Output; use Output; @@ -206,12 +208,18 @@ package body Errutil is Line => Get_Physical_Line_Number (Sptr), Col => Get_Column_Number (Sptr), Compile_Time_Pragma => Is_Compile_Time_Msg, - Warn_Err => Warning_Mode = Treat_As_Error, + Warn_Err => (if Warning_Mode = Treat_As_Error + then From_Warn_As_Err + else None), Warn_Chr => Warning_Msg_Char, Uncond => Is_Unconditional_Msg, Msg_Cont => Continuation, Deleted => False, - Kind => Error_Msg_Kind)); + Kind => Error_Msg_Kind, + Id => No_Diagnostic_Id, + Switch => No_Switch_Id, + Locations => No_Labeled_Span, + Fixes => No_Fix)); Cur_Msg := Errors.Last; Prev_Msg := No_Error_Msg; |