From 5b3d16293f2f8a67d371eb870d48146a83510e0a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 6 Sep 2016 05:42:08 +0200 Subject: parse: improve some error messages. --- src/vhdl/translate/translation.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/vhdl/translate/translation.adb') diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 741a20503..81e7e5e7e 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -229,10 +229,10 @@ package body Translation is El := Get_Library_Unit (Unit); if Flags.Verbose then if Main then - Report_Msg (Msgid_Note, Semantic, No_Location, + Report_Msg (Msgid_Note, Semantic, +Unit, "translating (with code generation) %n", (1 => +El)); else - Report_Msg (Msgid_Note, Semantic, No_Location, + Report_Msg (Msgid_Note, Semantic, +Unit, "translating %n", (1 => +El)); end if; end if; -- cgit v1.2.3