aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-expr.adb')
-rw-r--r--src/synth/synth-expr.adb7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index cb2dc64b6..3f6e2efc5 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -158,6 +158,13 @@ package body Synth.Expr is
function Synth_Uresize (Val : Value_Acc; Vtype : Node; W : Width)
return Net is
begin
+ if Is_Const (Val)
+ and then (Get_Kind (Get_Base_Type (Vtype))
+ = Iir_Kind_Integer_Type_Definition)
+ then
+ return Build_Const_UB32
+ (Build_Context, Uns32 (Val.Scal), W);
+ end if;
return Synth_Uresize (Get_Net (Val, Vtype), W);
end Synth_Uresize;