From 2075f8cf5995bc83a8edc07456331b5b0f5b6be1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 26 Jul 2019 04:32:07 +0200
Subject: synth: preliminary support of integer subtypes.

---
 src/synth/synth-types.ads | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/src/synth/synth-types.ads b/src/synth/synth-types.ads
index 15b12767d..e82ece9bd 100644
--- a/src/synth/synth-types.ads
+++ b/src/synth/synth-types.ads
@@ -19,7 +19,7 @@
 --  MA 02110-1301, USA.
 
 with Netlists; use Netlists;
-with Synth.Context; use Synth.Context;
+with Synth.Values; use Synth.Values;
 with Vhdl.Nodes; use Vhdl.Nodes;
 
 package Synth.Types is
@@ -28,6 +28,7 @@ package Synth.Types is
 
    function Is_Vector_Type (Atype : Node) return Boolean;
 
-   function Get_Width (Syn_Inst : Synth_Instance_Acc; Atype : Node)
-                      return Width;
+   --  Number of bits for RNG.
+   function Get_Range_Width (Rng : Value_Range_Type) return Width;
+
 end Synth.Types;
-- 
cgit v1.2.3