diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-01-09 15:56:08 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-01-09 15:56:08 +0100 |
| commit | 263c843ed49f59cb4cc3038bafcac2b9238ebad4 (patch) | |
| tree | 763a8fa60948a2e7553410cdf754995469f72073 | |
| parent | fb5e1b9ba9c6c1e7ae8c335adcdca03903c78567 (diff) | |
| download | ghdl-263c843ed49f59cb4cc3038bafcac2b9238ebad4.tar.gz ghdl-263c843ed49f59cb4cc3038bafcac2b9238ebad4.tar.bz2 ghdl-263c843ed49f59cb4cc3038bafcac2b9238ebad4.zip | |
vhdl-sem_types: handle record in reparse_as_array_constraint. Fix #1934
| -rw-r--r-- | src/vhdl/vhdl-sem_types.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb index 848cea916..83da696d1 100644 --- a/src/vhdl/vhdl-sem_types.adb +++ b/src/vhdl/vhdl-sem_types.adb @@ -1957,6 +1957,9 @@ package body Vhdl.Sem_Types is Set_Array_Element_Constraint (Res, Reparse_As_Array_Constraint (Def, Def_El_Type)); Set_Has_Element_Constraint_Flag (Res, True); + when Iir_Kind_Record_Type_Definition => + Set_Array_Element_Constraint + (Res, Reparse_As_Record_Constraint (Def)); when others => Error_Kind ("reparse_as_array_constraint", Def_El_Type); end case; |