diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-25 09:04:10 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-25 11:28:51 +0200 |
commit | 2f37e351d2008e7b5be7a975dc34fe3485809a62 (patch) | |
tree | 5edbcb824862ddc40ce8816705a1c6c88b262617 /src/vhdl/translate/trans-chap8.adb | |
parent | 0795210282e6ddb6190a4a16bca73aad18717cb7 (diff) | |
download | ghdl-2f37e351d2008e7b5be7a975dc34fe3485809a62.tar.gz ghdl-2f37e351d2008e7b5be7a975dc34fe3485809a62.tar.bz2 ghdl-2f37e351d2008e7b5be7a975dc34fe3485809a62.zip |
translate: improve support of unbounded records and arrays.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 65b559963..539002dc4 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -1350,7 +1350,7 @@ package body Trans.Chap8 is begin New_Assign_Stmt (New_Selected_Element (New_Obj (Val_Node), Tinfo.B.Base_Field (Mode_Value)), - Val); + New_Convert (Val, Tinfo.B.Base_Ptr_Type (Mode_Value))); Func_Info := Get_Info (Func); Start_Association (Assoc, Func_Info.Operator_Node); Subprgs.Add_Subprg_Instance_Assoc (Assoc, Func_Info.Operator_Instance); |