aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-vhdl_expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
-rw-r--r--src/synth/synth-vhdl_expr.adb6
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