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-decls.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/synth/synth-decls.adb')

diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb
index d7a0699d9..48952ef5a 100644
--- a/src/synth/synth-decls.adb
+++ b/src/synth/synth-decls.adb
@@ -46,7 +46,7 @@ package body Synth.Decls is
       case Val.Kind is
          when Value_Wire =>
             --  FIXME: get the width directly from the wire ?
-            W := Get_Width (Syn_Inst, Get_Type (Decl));
+            W := Get_Bound_Width (Val.W_Bound);
             Name := New_Sname (Syn_Inst.Name, Get_Identifier (Decl));
             if Init /= null then
                Ival := Get_Net (Init, Get_Type (Decl));
-- 
cgit v1.2.3