From a825e81ef70b0594dce00f08b573549e02a16932 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 14 Oct 2022 06:45:27 +0200
Subject: synth: handle record conversion

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

diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb
index 1f78a9677..036e5a27e 100644
--- a/src/synth/synth-vhdl_expr.adb
+++ b/src/synth/synth-vhdl_expr.adb
@@ -1454,6 +1454,9 @@ package body Synth.Vhdl_Expr is
          when Type_Bit
            | Type_Logic =>
             return Val;
+         when Type_Record
+           | Type_Unbounded_Record =>
+            return Val;
          when others =>
             Error_Msg_Synth (Syn_Inst, Loc, "unhandled type conversion");
             return No_Valtyp;
-- 
cgit v1.2.3