From af4e05d11936bd40bfe98cf769c86887a77e1d5d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 4 Sep 2017 04:20:41 +0200
Subject: sem_inst: fix instantiation of element type for non-name actual

Fix #406
---
 src/vhdl/sem_inst.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb
index e76d9cada..669a3de56 100644
--- a/src/vhdl/sem_inst.adb
+++ b/src/vhdl/sem_inst.adb
@@ -910,7 +910,7 @@ package body Sem_Inst is
                when Iir_Kind_Association_Element_Type =>
                   Inter := Get_Association_Interface (Inst_El, Inter_El);
                   Set_Instance (Get_Type (Get_Origin (Inter)),
-                                Get_Type (Get_Actual (Inst_El)));
+                                Get_Actual_Type (Inst_El));
                   --  Implicit operators.
                   declare
                      Imp_Inter : Iir;
-- 
cgit v1.2.3