diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-17 16:15:30 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-17 16:15:30 +0100 |
commit | 8bcca603938ced68a7d86ca63e486cdaabd401a0 (patch) | |
tree | 206b774ef3d3eac403361b24ae6736ab16e61fcc /src/synth/synth-values.adb | |
parent | 5c83c8d3fb5cc2304cd5c2e657370c698d90de4e (diff) | |
download | ghdl-8bcca603938ced68a7d86ca63e486cdaabd401a0.tar.gz ghdl-8bcca603938ced68a7d86ca63e486cdaabd401a0.tar.bz2 ghdl-8bcca603938ced68a7d86ca63e486cdaabd401a0.zip |
synth: create const_array for default values.
Diffstat (limited to 'src/synth/synth-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 21830955f..e07af0d8e 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -796,7 +796,7 @@ package body Synth.Values is for I in Arr.V'Range loop Arr.V (I) := Create_Value_Default (El_Typ); end loop; - return Create_Value_Array (Typ, Arr); + return Create_Value_Const_Array (Typ, Arr); end; when Type_Unbounded_Vector => raise Internal_Error; |