diff options
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 884fe9e16..21bf95b18 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -717,7 +717,11 @@ package body Synth.Vhdl_Expr is when Type_Record => pragma Assert (Vtype.Kind = Type_Record); -- TODO: check elements. - return Vt; + if Bounds then + return Reshape_Value (Vt, Dtype); + else + return Vt; + end if; when Type_Unbounded_Record => pragma Assert (Vtype.Kind = Type_Record); -- TODO: check elements |