diff options
Diffstat (limited to 'src/simul')
| -rw-r--r-- | src/simul/simul-vhdl_simul.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index cae02fad7..f7a51b822 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -743,7 +743,7 @@ package body Simul.Vhdl_Simul is begin if Get_Foreign_Flag (Imp) then Synth.Errors.Error_Msg_Synth - (+Stmt, "call to foreign %n is not supported", +Imp); + (Inst, Stmt, "call to foreign %n is not supported", +Imp); Next_Stmt := Null_Node; return; end if; |