diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-09-23 07:49:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-09-23 07:50:53 +0200 |
| commit | 1cbe9b82221a2da874ab2b12463b42eee5cfaaa7 (patch) | |
| tree | caae65343ce360532bf370327b252a1728c6057e /src/vhdl/translate/trans-chap7.adb | |
| parent | ee9f2600d1272470abc4ebbf09f7469e1656c39c (diff) | |
| download | ghdl-1cbe9b82221a2da874ab2b12463b42eee5cfaaa7.tar.gz ghdl-1cbe9b82221a2da874ab2b12463b42eee5cfaaa7.tar.bz2 ghdl-1cbe9b82221a2da874ab2b12463b42eee5cfaaa7.zip | |
Add reproducer for #643
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 1d385ab95..614f993f3 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2947,6 +2947,8 @@ package body Trans.Chap7 is Dest := Chap3.Slice_Base (Base_Ptr, Aggr_Type, New_Obj_Value (Var_Index)); Translate_Assign (Dest, Expr, Get_Type (Expr)); + -- FIXME: handle non-static expression type (at least for + -- choice by range). Len := Eval_Discrete_Type_Length (Get_Index_Type (Get_Type (Expr), 0)); New_Assign_Stmt |