From b04b33d6fdbaf1c4c72b347e5ac65ba7cf1ba84d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 18 Jun 2017 08:57:20 +0200
Subject: gen_simple_signal_assign: handle unbounded record.

Fix #361
---
 src/vhdl/translate/trans-helpers2.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb
index 11ea54042..fa8f11038 100644
--- a/src/vhdl/translate/trans-helpers2.adb
+++ b/src/vhdl/translate/trans-helpers2.adb
@@ -239,9 +239,10 @@ package body Trans.Helpers2 is
       Res := E2M (Val, Type_Info, Mode_Value);
       case Type_Info.Type_Mode is
          when Type_Mode_Array
-            | Type_Mode_Fat_Array =>
+            | Type_Mode_Unbounded_Array =>
             Res := Chap3.Get_Composite_Base (Res);
-         when Type_Mode_Record =>
+         when Type_Mode_Record
+           | Type_Mode_Unbounded_Record =>
             Res := Stabilize (Res);
          when others =>
             --  Not a composite type!
-- 
cgit v1.2.3