From d83f450c7b03a04348f168c86fb8b0413096a13f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 18:45:28 +0100
Subject: simul-elaboration: handle unbounded records.

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

(limited to 'src')

diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb
index a6dc61ebf..c1bc7ff88 100644
--- a/src/vhdl/simulate/simul-elaboration.adb
+++ b/src/vhdl/simulate/simul-elaboration.adb
@@ -669,7 +669,7 @@ package body Simul.Elaboration is
            | Iir_Kind_Record_Subtype_Definition =>
             declare
                List : constant Iir_Flist :=
-                 Get_Elements_Declaration_List (Get_Base_Type (Decl));
+                 Get_Elements_Declaration_List (Decl);
                El : Iir_Element_Declaration;
             begin
                Res := Create_Record_Value
-- 
cgit v1.2.3