diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-10-15 07:33:08 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-15 07:33:08 +0200 |
| commit | cbf6d4d125e7fbf0842dce4089083d0851adfb28 (patch) | |
| tree | 261bd6ff320db22672398006da84a513c6eb5db0 | |
| parent | 4857f0d5500de52fd73ec6f64f7a01d4d774c74c (diff) | |
| download | ghdl-cbf6d4d125e7fbf0842dce4089083d0851adfb28.tar.gz ghdl-cbf6d4d125e7fbf0842dce4089083d0851adfb28.tar.bz2 ghdl-cbf6d4d125e7fbf0842dce4089083d0851adfb28.zip | |
Improve error message for uninstantiated component.
| -rw-r--r-- | src/vhdl/configuration.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/configuration.adb b/src/vhdl/configuration.adb index 7a1ccfc7e..ae627ca2d 100644 --- a/src/vhdl/configuration.adb +++ b/src/vhdl/configuration.adb @@ -544,9 +544,11 @@ package body Configuration is if Bind = Null_Iir then if Is_Warning_Enabled (Warnid_Binding) then Inst := Get_First_Element (Get_Instantiation_List (Conf)); + Inst := Strip_Denoting_Name (Inst); Warning_Msg_Elab (Warnid_Binding, Conf, - "%n is not bound", +Inst, Cont => True); + "%n of %n is not bound", + (+Inst, +Get_Instantiated_Unit (Inst)), Cont => True); Warning_Msg_Elab (Warnid_Binding, Current_Configuration, "(in %n)", +Current_Configuration); |