From 06d92830364fe1115d32a120d6e531cc498eb5b2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 21 Sep 2019 16:36:34 +0200
Subject: synth: fix to_unsigned (nat, nat)

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

(limited to 'src')

diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb
index 7baa45841..d50ca1862 100644
--- a/src/synth/synth-oper.adb
+++ b/src/synth/synth-oper.adb
@@ -921,7 +921,8 @@ package body Synth.Oper is
                      Arg_Net := Get_Net (Arg);
                      return Create_Value_Net
                        (Synth_Uresize (Arg_Net, Uns32 (Size.Scal), Expr),
-                        Create_Res_Bound (Arg, Arg_Net));
+                        Create_Vec_Type_By_Length (Uns32 (Size.Scal),
+                                                   Logic_Type));
                   end if;
                end if;
             end;
-- 
cgit v1.2.3