From 17eb0242dac5e119ec8f31a700c82aeff01b9869 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 12 May 2019 08:29:54 +0200 Subject: errorout: add messages group instead of continuation. --- src/vhdl/vhdl-configuration.adb | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'src/vhdl/vhdl-configuration.adb') diff --git a/src/vhdl/vhdl-configuration.adb b/src/vhdl/vhdl-configuration.adb index 95ed0eb4e..f1ede2dc1 100644 --- a/src/vhdl/vhdl-configuration.adb +++ b/src/vhdl/vhdl-configuration.adb @@ -452,12 +452,14 @@ package body Vhdl.Configuration is if Is_Warning_Enabled (Warnid_Binding) and then not Get_Artificial_Flag (Assoc) then + Report_Start_Group; Warning_Msg_Elab (Warnid_Binding, Assoc, "%n of %n is not bound", - (+Formal, +Get_Parent (Formal)), Cont => True); + (+Formal, +Get_Parent (Formal))); Warning_Msg_Elab (Warnid_Binding, Current_Configuration, "(in %n)", +Current_Configuration); + Report_End_Group; end if; end if; Next_Association_Interface (Assoc, Inter); @@ -552,13 +554,13 @@ package body Vhdl.Configuration is if Is_Warning_Enabled (Warnid_Binding) then Inst := Get_Nth_Element (Get_Instantiation_List (Conf), 0); Inst := Strip_Denoting_Name (Inst); - Warning_Msg_Elab - (Warnid_Binding, Conf, - "%n of %n is not bound", - (+Inst, +Get_Instantiated_Unit (Inst)), Cont => True); - Warning_Msg_Elab - (Warnid_Binding, Current_Configuration, - "(in %n)", +Current_Configuration); + Report_Start_Group; + Warning_Msg_Elab (Warnid_Binding, Conf, + "%n of %n is not bound", + (+Inst, +Get_Instantiated_Unit (Inst))); + Warning_Msg_Elab (Warnid_Binding, Current_Configuration, + "(in %n)", +Current_Configuration); + Report_End_Group; end if; return; end if; -- cgit v1.2.3