From bb6efb5c4092131f46032c74f9fcc322b5db2b6a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 20 Jul 2019 12:22:50 +0200
Subject: synth: support index of a constant.

---
 src/synth/synth-values.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index c1b83ec71..47c47e279 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -296,6 +296,10 @@ package body Synth.Values is
             return Val.N_Bound;
          when Value_Wire =>
             return Val.W_Bound;
+         when Value_Array =>
+            --  For constants.
+            pragma Assert (Val.Bounds.Len = 1);
+            return Val.Bounds.D (1);
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3