diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-07-02 07:53:35 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-07-02 07:53:35 +0200 |
| commit | 66e6648126a3bc6d78c073ea4badc107f2a46cf0 (patch) | |
| tree | 2d6c0ebe5f4ff7cc812fb37892eb8bb951566332 /src | |
| parent | 87ab6659b16c7c7a3a63cb4d3987aa2a02ae5869 (diff) | |
| download | ghdl-66e6648126a3bc6d78c073ea4badc107f2a46cf0.tar.gz ghdl-66e6648126a3bc6d78c073ea4badc107f2a46cf0.tar.bz2 ghdl-66e6648126a3bc6d78c073ea4badc107f2a46cf0.zip | |
synth-vhdl_insts: also handled unbounded records in hash names.
Fix #2119
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-vhdl_insts.adb | 7 |
1 files changed, 7 insertions, 0 deletions
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; |