diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-11-17 05:03:23 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-11-17 05:03:23 +0100 |
| commit | 4a143e962ef51149408c24461599752203b4c415 (patch) | |
| tree | bf1f409cbdf2ca6d27025825c112505d991c1353 /src/vhdl | |
| parent | 20ea3682027c0725a02797665b58dc4adb382851 (diff) | |
| download | ghdl-4a143e962ef51149408c24461599752203b4c415.tar.gz ghdl-4a143e962ef51149408c24461599752203b4c415.tar.bz2 ghdl-4a143e962ef51149408c24461599752203b4c415.zip | |
Allow concatenation of element whose type is an array with non-static bounds
Fix bug24064
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 081526b2e..7de8c1c94 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -1262,7 +1262,7 @@ package body Trans.Chap7 is begin Chap3.Translate_Object_Copy (Chap3.Index_Base (Var_Arr, Expr_Type, New_Obj_Value (Var_Off)), - Translate_Expression (E), Get_Type (E)); + Translate_Expression (E), Get_Element_Subtype (Expr_Type)); Inc_Var (Var_Off); end Assign_El; |