From 8be466828c944a470b0324e7ba9bc1fdbbe9ab2b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 13 Nov 2019 18:51:53 +0100
Subject: synth: improve support of integer literals (with a

---
 src/synth/synth-stmts.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 70c29013c..a0fd6d713 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -745,7 +745,8 @@ package body Synth.Stmts is
          when Iir_Kind_Enumeration_Type_Definition =>
             Dc := 0;
             Val := Uns64 (Get_Enum_Pos (Strip_Denoting_Name (Expr)));
-         when Iir_Kind_Integer_Type_Definition =>
+         when Iir_Kind_Integer_Type_Definition
+           | Iir_Kind_Integer_Subtype_Definition =>
             --  TODO: signed values.
             Dc := 0;
             Val := Uns64 (Get_Value (Expr));
-- 
cgit v1.2.3