From c9b3a23bfc75c9b2b74ed88cca97fb5a4e264d7f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 18 Jul 2019 03:04:21 +0200 Subject: synth: finalize concurrent assignments (WIP). --- src/synth/synth-errors.ads | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'src/synth/synth-errors.ads') diff --git a/src/synth/synth-errors.ads b/src/synth/synth-errors.ads index ccc48d375..b6b5885c4 100644 --- a/src/synth/synth-errors.ads +++ b/src/synth/synth-errors.ads @@ -26,5 +26,12 @@ package Synth.Errors is Msg : String; Arg1 : Earg_Type); procedure Error_Msg_Synth (Loc : Location_Type; - Msg : String); + Msg : String; + Args : Earg_Arr := No_Eargs); + procedure Warning_Msg_Synth (Loc : Location_Type; + Msg : String; + Arg1 : Earg_Type); + procedure Warning_Msg_Synth (Loc : Location_Type; + Msg : String; + Args : Earg_Arr := No_Eargs); end Synth.Errors; -- cgit v1.2.3