From b170fe9da0f13a2e3e6d82f4e8926df5f06e4a69 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 18:39:05 +0100
Subject: simul: support type conversion in association.

---
 src/vhdl/simulate/simul-simulation-main.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/simulate/simul-simulation-main.adb b/src/vhdl/simulate/simul-simulation-main.adb
index 9ae9565e9..34041f645 100644
--- a/src/vhdl/simulate/simul-simulation-main.adb
+++ b/src/vhdl/simulate/simul-simulation-main.adb
@@ -761,7 +761,7 @@ package body Simul.Simulation.Main is
                     (new Convert_Instance_Type'
                        (Mode => Convert_In,
                         Instance => Local_Instance,
-                        Func => Get_Implementation (In_Conv),
+                        Func => In_Conv,
                         Src => Local_Expr,
                         Dst => Src));
                else
-- 
cgit v1.2.3