From fd8ab18f6cbe91b0f7820909fffecdd07440cb29 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 23 Jul 2019 19:22:16 +0200 Subject: synth: handle resize. --- src/synth/synth-expr.adb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 9658bbd25..0d28069ba 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1573,6 +1573,21 @@ package body Synth.Expr is (Synth_Uresize (Get_Net (Subprg_Inst.Objects (1), Get_Type (Inter_Chain)), 32), null); + when Iir_Predefined_Ieee_Numeric_Std_Resize_Uns_Nat => + declare + V : constant Value_Acc := Subprg_Inst.Objects (1); + Sz : constant Value_Acc := Subprg_Inst.Objects (2); + W : Width; + begin + if not Is_Const (Sz) then + Error_Msg_Synth (+Expr, "size must be constant"); + return null; + end if; + W := Uns32 (Sz.Scal); + return Create_Value_Net + (Synth_Uresize (Get_Net (V, Get_Type (Inter_Chain)), W), + Create_Value_Bound ((Iir_Downto, Int32 (W) - 1, 0, W))); + end; when Iir_Predefined_Ieee_Math_Real_Log2 => declare V : constant Value_Acc := Subprg_Inst.Objects (1); -- cgit v1.2.3