diff options
Diffstat (limited to 'src/errorout.adb')
-rw-r--r-- | src/errorout.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/errorout.adb b/src/errorout.adb index 45758167e..f0316197e 100644 --- a/src/errorout.adb +++ b/src/errorout.adb @@ -385,9 +385,9 @@ package body Errorout is Report_Handler.Message_Group.all (False); end Report_End_Group; - procedure Error_Msg_Option (Msg: String) is + procedure Error_Msg_Option (Msg: String; Args : Earg_Arr := No_Eargs) is begin - Report_Msg (Msgid_Error, Option, No_Source_Coord, Msg); + Report_Msg (Msgid_Error, Option, No_Source_Coord, Msg, Args); end Error_Msg_Option; procedure Warning_Msg_Option (Id : Msgid_Warnings; Msg: String) is |