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.adb | |
| 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.adb')
| -rw-r--r-- | src/synth/synth-values.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index ed30ffd3d..22bbd4fba 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -283,13 +283,15 @@ package body Synth.Values is Arr_El => El_Type))); end Create_Array_Type; - 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 is subtype Unbounded_Type_Type is Type_Type (Type_Unbounded_Array); function Alloc is new Areapools.Alloc_On_Pool_Addr (Unbounded_Type_Type); begin return To_Type_Acc (Alloc (Current_Pool, (Kind => Type_Unbounded_Array, W => 0, + Uarr_Ndim => Ndim, Uarr_El => El_Type))); end Create_Unbounded_Array; |