diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-06 05:42:08 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-06 05:42:08 +0200 |
commit | 5b3d16293f2f8a67d371eb870d48146a83510e0a (patch) | |
tree | 8d5b1d67b4089407286870035938329e1d378c8d /src/vhdl/translate/translation.adb | |
parent | ebc269b5e66cd92b621c63243f9d09679e5979f6 (diff) | |
download | ghdl-5b3d16293f2f8a67d371eb870d48146a83510e0a.tar.gz ghdl-5b3d16293f2f8a67d371eb870d48146a83510e0a.tar.bz2 ghdl-5b3d16293f2f8a67d371eb870d48146a83510e0a.zip |
parse: improve some error messages.
Diffstat (limited to 'src/vhdl/translate/translation.adb')
-rw-r--r-- | src/vhdl/translate/translation.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |