diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-06-18 08:57:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-06-18 08:57:20 +0200 |
| commit | b04b33d6fdbaf1c4c72b347e5ac65ba7cf1ba84d (patch) | |
| tree | bd73bc94e1b9f026e9c373b06361f7798585ac4b /src/vhdl/translate/trans-helpers2.adb | |
| parent | f023bbb2abc825b662c687a9ad610600cbd55c77 (diff) | |
| download | ghdl-b04b33d6fdbaf1c4c72b347e5ac65ba7cf1ba84d.tar.gz ghdl-b04b33d6fdbaf1c4c72b347e5ac65ba7cf1ba84d.tar.bz2 ghdl-b04b33d6fdbaf1c4c72b347e5ac65ba7cf1ba84d.zip | |
gen_simple_signal_assign: handle unbounded record.
Fix #361
Diffstat (limited to 'src/vhdl/translate/trans-helpers2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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! |