diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-22 09:50:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-22 09:50:52 +0200 |
| commit | cf174bacdd68c09417b810775025a749bd892ef2 (patch) | |
| tree | b4dc8d5cb79414c6762da01241d24e4d787ba93e /src/synth/synth-vhdl_eval.adb | |
| parent | d010636f5bb5cf00f6f26fd6e83a21b8a1dd5c2a (diff) | |
| download | ghdl-cf174bacdd68c09417b810775025a749bd892ef2.tar.gz ghdl-cf174bacdd68c09417b810775025a749bd892ef2.tar.bz2 ghdl-cf174bacdd68c09417b810775025a749bd892ef2.zip | |
synth: use same elements for unbounded arrays and vectors
Diffstat (limited to 'src/synth/synth-vhdl_eval.adb')
| -rw-r--r-- | src/synth/synth-vhdl_eval.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_eval.adb b/src/synth/synth-vhdl_eval.adb index 7b1bd91d9..590ab9900 100644 --- a/src/synth/synth-vhdl_eval.adb +++ b/src/synth/synth-vhdl_eval.adb @@ -344,7 +344,7 @@ package body Synth.Vhdl_Eval is begin Check_Matching_Bounds (Le_Typ, Re_Typ, Expr); Bnd := Elab.Vhdl_Types.Create_Bounds_From_Length - (Get_Uarray_First_Index (Res_Typ).Drange, L_Len + R_Len); + (Get_Uarray_Index (Res_Typ).Drange, L_Len + R_Len); Res_St := Create_Onedimensional_Array_Subtype (Res_Typ, Bnd, Le_Typ); Res := Create_Memory (Res_St); @@ -367,7 +367,7 @@ package body Synth.Vhdl_Eval is begin Check_Matching_Bounds (Left.Typ, Re_Typ, Expr); Bnd := Elab.Vhdl_Types.Create_Bounds_From_Length - (Get_Uarray_First_Index (Res_Typ).Drange, 1 + Rlen); + (Get_Uarray_Index (Res_Typ).Drange, 1 + Rlen); Res_St := Create_Onedimensional_Array_Subtype (Res_Typ, Bnd, Re_Typ); Res := Create_Memory (Res_St); @@ -387,7 +387,7 @@ package body Synth.Vhdl_Eval is begin Check_Matching_Bounds (Le_Typ, Right.Typ, Expr); Bnd := Elab.Vhdl_Types.Create_Bounds_From_Length - (Get_Uarray_First_Index (Res_Typ).Drange, Llen + 1); + (Get_Uarray_Index (Res_Typ).Drange, Llen + 1); Res_St := Create_Onedimensional_Array_Subtype (Res_Typ, Bnd, Le_Typ); Res := Create_Memory (Res_St); |