diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-01 06:09:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-01 06:09:55 +0200 |
commit | a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9 (patch) | |
tree | 84f3c18584169d3582efe6a3f2a6bdb1b024f47a /src/synth/synth-values.ads | |
parent | bb00cae25caff518b54c28ba8cc6ee7381fdf2ac (diff) | |
download | ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.tar.gz ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.tar.bz2 ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.zip |
synth: improve support of arrays or arrays. Fix #955
Diffstat (limited to 'src/synth/synth-values.ads')
-rw-r--r-- | src/synth/synth-values.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads index f897bdf8a..28661d41a 100644 --- a/src/synth/synth-values.ads +++ b/src/synth/synth-values.ads @@ -125,6 +125,7 @@ package Synth.Values is Abounds : Bound_Array_Acc; Arr_El : Type_Acc; when Type_Unbounded_Array => + Uarr_Ndim : Iir_Index32; Uarr_El : Type_Acc; when Type_Record => Rec : Rec_El_Array_Acc; @@ -231,7 +232,8 @@ package Synth.Values is function Create_Bound_Array (Ndims : Iir_Index32) return Bound_Array_Acc; function Create_Array_Type (Bnd : Bound_Array_Acc; El_Type : Type_Acc) return Type_Acc; - function Create_Unbounded_Array (El_Type : Type_Acc) return Type_Acc; + function Create_Unbounded_Array (Ndim : Iir_Index32; El_Type : Type_Acc) + return Type_Acc; function Create_Rec_El_Array (Nels : Iir_Index32) return Rec_El_Array_Acc; function Create_Record_Type (Els : Rec_El_Array_Acc; W : Width) |