From 551fe31c9a9331998199369f903ede9c3cb4a79c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 25 Sep 2022 15:15:48 +0200
Subject: synth: rework error procedure, always pass the instance

---
 src/simul/simul-vhdl_simul.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/simul')

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;
-- 
cgit v1.2.3