diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-24 07:34:24 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-24 07:34:24 +0200 |
| commit | 9ad82be8704c05a74da6c773b4dd553f2c9beabe (patch) | |
| tree | 8015bfdd1375e676f7cbf3cb4108e9bb03fd6106 /src/synth/synth-vhdl_eval.adb | |
| parent | 04a1fcc6b83e9e50849b05b629d6c8eb81143d38 (diff) | |
| download | ghdl-9ad82be8704c05a74da6c773b4dd553f2c9beabe.tar.gz ghdl-9ad82be8704c05a74da6c773b4dd553f2c9beabe.tar.bz2 ghdl-9ad82be8704c05a74da6c773b4dd553f2c9beabe.zip | |
synth-vhdl_eval: handle element-element concatenation
Diffstat (limited to 'src/synth/synth-vhdl_eval.adb')
| -rw-r--r-- | src/synth/synth-vhdl_eval.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_eval.adb b/src/synth/synth-vhdl_eval.adb index 86502a549..9dd6465ca 100644 --- a/src/synth/synth-vhdl_eval.adb +++ b/src/synth/synth-vhdl_eval.adb @@ -396,6 +396,24 @@ package body Synth.Vhdl_Eval is Right.Mem, Right.Typ.Sz); return Res; end; + when Iir_Predefined_Element_Element_Concat => + declare + El_Typ : constant Type_Acc := Left.Typ; + Bnd : Bound_Type; + Res_St : Type_Acc; + Res : Memtyp; + begin + Check_Matching_Bounds (Left.Typ, Right.Typ, Expr); + Bnd := Elab.Vhdl_Types.Create_Bounds_From_Length + (Get_Uarray_Index (Res_Typ).Drange, 2); + Res_St := Create_Onedimensional_Array_Subtype + (Res_Typ, Bnd, El_Typ); + Res := Create_Memory (Res_St); + Copy_Memory (Res.Mem, Left.Mem, El_Typ.Sz); + Copy_Memory (Res.Mem + El_Typ.Sz, + Right.Mem, El_Typ.Sz); + return Res; + end; when Iir_Predefined_Array_Equality | Iir_Predefined_Record_Equality => |