diff options
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; |