diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-27 18:47:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-27 18:47:33 +0200 |
| commit | 9579af7882b3862e426b2f129d86c74943d0e5f9 (patch) | |
| tree | 58b90779810505f82d25774d772d27a067a1c492 /src/vhdl/translate/trans-chap8.adb | |
| parent | c16acb52daa0037bcf52af9413b99ef69d5c0257 (diff) | |
| download | ghdl-9579af7882b3862e426b2f129d86c74943d0e5f9.tar.gz ghdl-9579af7882b3862e426b2f129d86c74943d0e5f9.tar.bz2 ghdl-9579af7882b3862e426b2f129d86c74943d0e5f9.zip | |
translate: handle slice of arrays with unbounded elements.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 9028c16e7..5d662f410 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -962,7 +962,8 @@ package body Trans.Chap8 is else Sub_Type := Get_Type (Targ); Sub_Aggr := Chap3.Slice_Base (Chap3.Get_Composite_Base (Val), - Sub_Type, New_Obj_Value (Index)); + Sub_Type, New_Obj_Value (Index), + O_Enode_Null); Stabilize (Sub_Aggr); Dest := Chap6.Translate_Name (Targ, Mode_Value); Stabilize (Dest); @@ -4231,7 +4232,7 @@ package body Trans.Chap8 is else Sub_Type := Get_Type (Expr); Sub_Aggr := Chap3.Slice_Base - (Aggr, Sub_Type, New_Obj_Value (Idx)); + (Aggr, Sub_Type, New_Obj_Value (Idx), O_Enode_Null); end if; when others => Error_Kind ("translate_signal_target_array_aggr", El); |