diff options
Diffstat (limited to 'src/synth/synth-errors.adb')
| -rw-r--r-- | src/synth/synth-errors.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-errors.adb b/src/synth/synth-errors.adb index e8d693d0b..a0b672770 100644 --- a/src/synth/synth-errors.adb +++ b/src/synth/synth-errors.adb @@ -33,12 +33,12 @@ package body Synth.Errors is +Loc, Msg, Args); end Error_Msg_Synth; - procedure Warning_Msg_Synth (Loc : Location_Type; + procedure Warning_Msg_Synth (Warnid : Msgid_Warnings; + Loc : Location_Type; Msg : String; Arg1 : Earg_Type) is begin - Report_Msg (Msgid_Warning, Errorout.Elaboration, - +Loc, Msg, (1 => Arg1)); + Report_Msg (Warnid, Errorout.Elaboration, +Loc, Msg, (1 => Arg1)); end Warning_Msg_Synth; procedure Warning_Msg_Synth (Loc : Location_Type; |