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_oper.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_oper.adb')
| -rw-r--r-- | src/synth/synth-vhdl_oper.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_oper.adb b/src/synth/synth-vhdl_oper.adb index fba3b3ad5..9a0415a0e 100644 --- a/src/synth/synth-vhdl_oper.adb +++ b/src/synth/synth-vhdl_oper.adb @@ -1958,7 +1958,7 @@ package body Synth.Vhdl_Oper is return Synth_Conv_Vector (False); when Iir_Predefined_Ieee_Numeric_Std_Touns_Nat_Uns_Uns => declare - B : constant Bound_Type := Get_Array_Bound (R.Typ, 1); + B : constant Bound_Type := Get_Array_Bound (R.Typ); begin return Synth_Resize (Ctxt, L, B.Len, False, Expr); end; @@ -2002,7 +2002,7 @@ package body Synth.Vhdl_Oper is B : Bound_Type; W : Width; begin - B := Get_Array_Bound (R.Typ, 1); + B := Get_Array_Bound (R.Typ); W := B.Len; return Create_Value_Net (Build2_Uresize (Ctxt, Get_Net (Ctxt, L), @@ -2021,7 +2021,7 @@ package body Synth.Vhdl_Oper is (Ctxt, L, Uns32 (Read_Discrete (R)), True, Expr); when Iir_Predefined_Ieee_Numeric_Std_Resize_Sgn_Sgn => declare - B : constant Bound_Type := Get_Array_Bound (R.Typ, 1); + B : constant Bound_Type := Get_Array_Bound (R.Typ); begin return Synth_Resize (Ctxt, L, B.Len, True, Expr); end; |