From 661122fbfa890d45ff7a3c7f9da45bf4dc32b6c1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 24 May 2019 06:41:57 +0200 Subject: vhdl-parse: minor changes for disp_vhdl. --- src/vhdl/vhdl-parse.adb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/vhdl/vhdl-parse.adb') diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index cbf979fb9..273d8828b 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -2365,6 +2365,7 @@ package body Vhdl.Parse is Res_Type := Create_Iir (Iir_Kind_Array_Subtype_Definition); Set_Array_Element_Constraint (Res_Type, Element_Subtype); Set_Index_Constraint_List (Res_Type, List_To_Flist (Index_List)); + Set_Index_Constraint_Flag (Res_Type, True); else Res_Type := Create_Iir (Iir_Kind_Array_Type_Definition); Set_Element_Subtype_Indication (Res_Type, Element_Subtype); @@ -2650,6 +2651,7 @@ package body Vhdl.Parse is Res := Create_Iir (Iir_Kind_Protected_Type_Declaration); Set_Location (Res, Loc); Set_Type_Definition (Decl, Res); + Set_Type_Declarator (Res, Decl); end if; Set_Identifier (Decl, Ident); Set_Location (Decl, Loc); @@ -2777,6 +2779,7 @@ package body Vhdl.Parse is end if; Set_Range_Constraint (Phys_Def, Def); Set_Type_Definition (Decl, Phys_Def); + Set_Type_Declarator (Phys_Def, Decl); end; end if; @@ -2790,6 +2793,7 @@ package body Vhdl.Parse is Set_Location (Decl, Loc); Def := Parse_Record_Type_Definition; Set_Type_Definition (Decl, Def); + Set_Type_Declarator (Def, Decl); if Current_Token = Tok_Identifier then if Flags.Vhdl_Std = Vhdl_87 then Error_Msg_Parse ("simple_name not allowed here in vhdl87"); @@ -2975,6 +2979,7 @@ package body Vhdl.Parse is -- Index_constraint. Def := Create_Iir (Iir_Kind_Array_Subtype_Definition); Set_Location (Def); + Set_Index_Constraint_Flag (Def, True); -- Eat '('. Scan; -- cgit v1.2.3