From 8bcca603938ced68a7d86ca63e486cdaabd401a0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 17 Nov 2019 16:15:30 +0100
Subject: synth: create const_array for default values.

---
 src/synth/synth-values.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/synth')

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;
-- 
cgit v1.2.3