diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-25 15:15:48 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-25 15:15:48 +0200 |
commit | 551fe31c9a9331998199369f903ede9c3cb4a79c (patch) | |
tree | a0eaa704100872c10430e05981be137b3dc70bab /src/simul/simul-vhdl_simul.adb | |
parent | 8e56ee72b5095412f0de3d358668f41579c1194e (diff) | |
download | ghdl-551fe31c9a9331998199369f903ede9c3cb4a79c.tar.gz ghdl-551fe31c9a9331998199369f903ede9c3cb4a79c.tar.bz2 ghdl-551fe31c9a9331998199369f903ede9c3cb4a79c.zip |
synth: rework error procedure, always pass the instance
Diffstat (limited to 'src/simul/simul-vhdl_simul.adb')
-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; |