diff options
Diffstat (limited to 'src/synth/synth-errors.adb')
| -rw-r--r-- | src/synth/synth-errors.adb | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/src/synth/synth-errors.adb b/src/synth/synth-errors.adb index a8e4c04c7..be4ed43c9 100644 --- a/src/synth/synth-errors.adb +++ b/src/synth/synth-errors.adb @@ -28,9 +28,26 @@ package body Synth.Errors is end Error_Msg_Synth; procedure Error_Msg_Synth (Loc : Location_Type; - Msg : String) is + Msg : String; + Args : Earg_Arr := No_Eargs) is begin Report_Msg (Msgid_Error, Errorout.Elaboration, - +Loc, Msg, (1 .. 0 => <>)); + +Loc, Msg, Args); end Error_Msg_Synth; + + procedure Warning_Msg_Synth (Loc : Location_Type; + Msg : String; + Arg1 : Earg_Type) is + begin + Report_Msg (Msgid_Warning, Errorout.Elaboration, + +Loc, Msg, (1 => Arg1)); + end Warning_Msg_Synth; + + procedure Warning_Msg_Synth (Loc : Location_Type; + Msg : String; + Args : Earg_Arr := No_Eargs) is + begin + Report_Msg (Msgid_Warning, Errorout.Elaboration, +Loc, Msg, Args); + end Warning_Msg_Synth; + end Synth.Errors; |