diff options
Diffstat (limited to 'src/vhdl/translate/trans_be.adb')
| -rw-r--r-- | src/vhdl/translate/trans_be.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans_be.adb b/src/vhdl/translate/trans_be.adb index 8a8fa63ee..998271ef6 100644 --- a/src/vhdl/translate/trans_be.adb +++ b/src/vhdl/translate/trans_be.adb @@ -129,7 +129,7 @@ package body Trans_Be is begin case Get_Kind (Decl) is when Iir_Kind_Architecture_Body => - Error_Msg_Sem ("FOREIGN architectures are not yet handled", Decl); + Error_Msg_Sem (+Decl, "FOREIGN architectures are not yet handled"); when Iir_Kind_Procedure_Declaration | Iir_Kind_Function_Declaration => null; |