From 66e6648126a3bc6d78c073ea4badc107f2a46cf0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 2 Jul 2022 07:53:35 +0200
Subject: synth-vhdl_insts: also handled unbounded records in hash names.

Fix #2119
---
 src/synth/synth-vhdl_insts.adb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb
index 8d77b06b5..2d3f3360f 100644
--- a/src/synth/synth-vhdl_insts.adb
+++ b/src/synth/synth-vhdl_insts.adb
@@ -198,6 +198,13 @@ package body Synth.Vhdl_Insts is
                   T := T.Arr_El;
                end loop;
             end;
+         when Type_Record =>
+            for I in Typ.Rec.E'Range loop
+               Hash_Bounds (C, Typ.Rec.E (I).Typ);
+            end loop;
+         when Type_Bit
+           | Type_Logic =>
+            null;
          when others =>
             raise Internal_Error;
       end case;
-- 
cgit v1.2.3