diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 3 | ||||
| -rw-r--r-- | src/vhdl/vhdl-prints.adb | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index e17846618..3ec1777a2 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -3583,6 +3583,9 @@ package body Vhdl.Parse is when Tok_Record => Def := Parse_Record_Nature_Definition; Set_Location (Def, Loc); + if Current_Token = Tok_Identifier then + Check_End_Name (Ident, Def); + end if; when Tok_Identifier => Def := Parse_Scalar_Nature_Definition; Set_Location (Def, Loc); diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index 47afb99c3..b8513d28e 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -274,6 +274,8 @@ package body Vhdl.Prints is | Iir_Kind_Protected_Type_Declaration => -- Used for 'end' DECL_NAME. Disp_Identifier (Ctxt, Get_Type_Declarator (Decl)); + when Iir_Kind_Record_Nature_Definition => + Disp_Identifier (Ctxt, Get_Nature_Declarator (Decl)); when Iir_Kind_Component_Instantiation_Statement => Disp_Ident (Ctxt, Get_Label (Decl)); when Iir_Kind_Design_Unit => |