diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-05-13 09:52:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-05-13 16:32:10 +0200 |
| commit | faf9bf935cbe83c47808c1ee57efc9fdcad7c6a1 (patch) | |
| tree | b030ac3e6684851ab2a5db1c9cfabc9bfc9df162 | |
| parent | 731dbf2359f60207736bb8a385b84b90af7a6085 (diff) | |
| download | ghdl-faf9bf935cbe83c47808c1ee57efc9fdcad7c6a1.tar.gz ghdl-faf9bf935cbe83c47808c1ee57efc9fdcad7c6a1.tar.bz2 ghdl-faf9bf935cbe83c47808c1ee57efc9fdcad7c6a1.zip | |
trans-chap6: handle alias of unbounded record. For #641
| -rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index f380efb07..74ff81558 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -1133,7 +1133,8 @@ package body Trans.Chap6 is begin pragma Assert (Mode <= Name_Info.Alias_Kind); case Type_Info.Type_Mode is - when Type_Mode_Unbounded_Array => + when Type_Mode_Unbounded_Array + | Type_Mode_Unbounded_Record => return Get_Var (Name_Info.Alias_Var (Mode), Type_Info, Mode); when Type_Mode_Bounded_Arrays |