From cde20d1471c25e3fb4b38ffb48e9972412c09ca5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 4 Nov 2019 18:52:35 +0100
Subject: synth-value: export get_bound_length.

---
 src/synth/synth-values.ads | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index 93c3d530e..80ddbc210 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -309,6 +309,9 @@ package Synth.Values is
    --  sub-elements.
    function Get_Array_Flat_Length (Typ : Type_Acc) return Width;
 
+   --  Return length of dimension DIM of type T.
+   function Get_Bound_Length (T : Type_Acc; Dim : Iir_Index32) return Width;
+
    function Is_Matching_Bounds (L, R : Type_Acc) return Boolean;
 
    function Get_Type_Width (Atype : Type_Acc) return Width;
-- 
cgit v1.2.3