From 4b35c49030a2c4844539be20af3430fe709e9b8e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 15 Jul 2019 18:39:57 +0200
Subject: synth: handle choices by range in aggregates.

---
 src/synth/synth-stmts.ads | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/synth/synth-stmts.ads')

diff --git a/src/synth/synth-stmts.ads b/src/synth/synth-stmts.ads
index 8b3a68466..257acfdfd 100644
--- a/src/synth/synth-stmts.ads
+++ b/src/synth/synth-stmts.ads
@@ -18,6 +18,7 @@
 --  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
 --  MA 02110-1301, USA.
 
+with Types; use Types;
 with Vhdl.Nodes; use Vhdl.Nodes;
 with Synth.Values; use Synth.Values;
 with Synth.Context; use Synth.Context;
@@ -38,4 +39,9 @@ package Synth.Stmts is
    --  Generate netlists for concurrent statements STMTS.
    procedure Synth_Concurrent_Statements
      (Syn_Inst : Synth_Instance_Acc; Stmts : Node);
+
+   --  For iterators.
+   function In_Range (Rng : Value_Acc; V : Int64) return Boolean;
+   procedure Update_Index (Rng : Value_Acc; Idx : in out Int64);
+
 end Synth.Stmts;
-- 
cgit v1.2.3