From c1e2a5e5cad68c90f47ba0bc05f2285b3ca584d0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 23 Nov 2019 17:32:20 +0100
Subject: synth-expr: handle aliases in subtype conversion.

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

(limited to 'src')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 9bb95f66a..627005a88 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -841,7 +841,8 @@ package body Synth.Expr is
                   --  TODO: check overflow.
                   case Val.Kind is
                      when Value_Net
-                       | Value_Wire =>
+                       | Value_Wire
+                       | Value_Alias =>
                         N := Get_Net (Val);
                         if Vtype.Drange.Is_Signed then
                            N := Build2_Sresize
-- 
cgit v1.2.3